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1  User’s  Manual 


1.0  How  top  Use  this  Manual 

This  part  of  the  report,  the  user’s  manual,  is  aimed  at  helping  anyone  to  use  PDWAP.  It 
assumes  that  the  average  experience  of  the  user  is  somewhere  between  computer  avoider 
and  computer  wizard.  This  manual  is  geared  toward  the  lower  range  of  that  spectrum, 
mostly  because  real  computer  wizards  wouldn’t  read  the  user’s  manual  anyway.  If  you  are 
a  new  user,  try  reading  through  the  manual.  If  you  are  a  little  more  comfortable,  probably 
a  glance  through  the  sections  on  preliminary  design  and  weights  analysis  would  help  just  to 
point  out  what  the  program  can  do  and  what  input  it  needs. 

The  manual  is  divided  up  based  on  how  you  would  go  about  using  PDWAP.  The  first 
sections  are  concerned  with  getting  the  program  and  its  files  loaded  onto  a  working  disk, 
and  then  getting  it  started.  The  following  sections  describe  how  to  use  PDWAP  in  the 
order  that  a  normal  session  would  proceed. 

The  last  section  of  the  user’s  manual  shows  a  sample  case.  The  sample  case  is  based  on  the 
Incremental  Growth  Vehicle  (IGV).  It  is  part  of  a  study  that  McDonnell  Douglas  did  to 
investigate  the  use  of  a  high  speed  research  vehicle  for  propulsion  system  testing.  The 
vehicle  was  selected  randomly  of  those  available  with  weights  documentation  so  a  com¬ 
parison  could  be  drawn  between  the  documented  weights  data  and  PDWAP’s  results.  This 
vehicle  was  not  run  on  PDWAP  before  the  development  of  the  documentation  and  serves 
as  a  good  test  of  the  program. 


1.1  Introduction  to  PDWAP 

PDWAP  is  a  system  of  three  programs  that  can  be  used  to  provide  a  weights  analysis  of 
any  of  a  large  group  of  flight  vehicles.  The  user  adjustable  data  file  can  be  tailored  to 
represent  fighter  and  transport  jets,  rocket  powered  boosters,  single  stage  Earth-to-orbit 
vehicles,  as  well  as  other  possible  configurations.  The  output  of  the  program  is  a  detailed 
vehicle  summary  and  weight  statement  which  can  be  used  to  check  the  effects  of  various 
configurations,  and  missions  on  the  vehicle  under  study. 

The  PDWAP  system  is  comprised  of  three  programs.  The  first  is  the  preliminary  design 
program.  This  is  used  to  scale  a  generic  design  vehicle  (GDV)  to  match  your  supplied 
inputs.  The  geometry  of  this  vehicle  is  then  used  to  calculate  the  areas,  volumes,  etc.  that 
are  used  later.  The  program  then  writes  the  calculated  data  to  a  file  to  be  used  by  the 
second  program. 

The  second  program  in  the  package  is  a  modification  of  WAATS  (Weights  Analysis  for 
Advanced  Transportation  Systems)  by  Glatts.  It  uses  a  large  data  file,  created  by  using  the 
first  program  or  written  by  you,  to  perform  a  weights  analysis  using  a  component  build-up 
technique  based  on  historical  data.  The  results  are  then  be  sent  to  a  data  file  for  viewing 
later. 
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The  third  program  is  actually  a  collection  of  routines  that  allows  you  to  view  either  the  data 
file  or  output  file  as  well  as  send  it  to  the  printer  for  hard  copy.  It  also  has  a  file  convener 
that  updates  your  version  2.0  files  to  the  version  2.1  format.  Also,  a  DOS  shell  has  been 
added  to  make  it  easier  to  use  other  programs  while  in  the  PD  WAP  system. 

All  three  programs  are  contained  in  one  large  package,  about  72K,  and  are  controlled  by  a 
user  friendly  menu  system.  This  allows  you  to  move  from  one  program  to  another  without 
returning  to  DOS.  Also,  since  the  programs  are  combined  in  one  package  that  is  loaded  in 
at  stan-up,  there  is  no  lag  time  involved  when  going  from  one  program  to  another. 

For  a  graphic  description  of  the  PDWAP  system  see  Figure  1. 

1.2  Requirements 

1.2.1  Required  Files 

Included  on  the  PDWAP  disk  are  the  following  files: 

PD.EXE  Program  executable  code 

PD.DAT  Initializing  data  file  used  by  PDWAP 

PD.DOC  Documentation  file  for  PDWAP 

PD.BAS  TurboBASIC  source  code 

PD1.COM  Used  to  view  files 

PDI.BAT  Installs  needed  files  on  hard  drive 

To  run  the  program,  PD.EXE,  along  with  the  files  PD.DAT,  PD1.COM  are  required.  The 
other  files  are  there  only  for  your  benefit.  The  source  code  is  included  so  that  you  can 
modify  the  program  to  fit  your  needs.  I  would  greatly  appreciate  hearing  of  any  modifica¬ 
tions  as  well  as  any  suggestions  for  changes  to  the  program. 

1.22  Required  Hardware 

PDWAP  will  run  on  any  IBM  PC/XT/AT  compatible  machine.  It  can  operate  with  or 
without  the  8087/80287  math  chip.  The  program  can  operate  in  a  system  with  as  little  as 
128K.  Since  the  program  reads  and  writes  to  the  disk  a  few  times  during  its  operation,  a 
hard  drive  or  ram  drive  will  speed  it  up. 
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1.3  Getting  Started 

1.3.1  Installing  PDWAP 

Getting  started  with  PDWAP  is  as  easy  as  typing  PDI  at  the  DOS  prompt: 

A:>PDI  [par/t]<RETURN> 

where  path  indicates  the  drive  and  directory  that  you  want  to  put  PDWAP.  This  will  make 
a  working  copy  of  PDWAP  by  copying  PD.EXE  and  the  other  needed  files  to  your  woik- 
ing  floppy  or  hard  disk. 

1.3.2  Running  PDWAP 

As  mentioned  above,  running  PDWAP  is  simple.  At  the  DOS  prompt  type  PD  and  then  hit 
the  <RETURN>  key.  You  should  then  see  the  introduction  page  on  you r  screen. 

The  program  will  then  load  into  the  machine  and  your  screen  will  then  look  like  Figure  2. 
This  is  the  Main  Menu  screen  of  PDWAP.  From  here,  you  can  use  the  functions  of 
PDWAP  just  by  using  the  menu,  instead  of  having  to  remember  numerous  commands. 

133  Using  the  Menu  Interface 

The  menu  system  used  on  PDWAP  was  selected  because  of  its  ease  of  use,  along  with  the 
speed  it  has  over  manual  selection  of  the  programs  that  make  up  the  PDWAP  system.  To 
use  the  menu  just  select  the  PDWAP  system.  To  use  the  menu  just  the  PDWAP  system. 
To  use  the  menu  just  select  the  operation  the  PDWAP  system. 

To  use  the  menu  just  select  the  operation  that  you  wish  to  perform  by  using  either  the 
arrow  keys  or  the  corresponding  function  key.  The  title  for  the  function  will  then  be 
highlighted  with  brackets,  like  choice  number  1  in  Figure  2,  and  you  just  hit  <RETURN> 
to  activate  that  program.  After  using  the  function  you  have  selected  the  program  will  return 
to  the  Main  Menu. 
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1.4  Preliminary  Design 

The  preliminary  design  function  of  PDWAP  provides  you  with  a  way  to  make  a  complete 
weights  analysis  of  a  vehicle  when  only  a  little  information  is  known.  The  program  makes 
certain  assumptions  based  on  known  vehicles  and  then  sizes  a  Generic  Design  Vehicle 
(GDV)  to  match  the  requirements  specified  by  the  user.  From  this  sized  vehicle  all  the 
geometry  needed  to  perform  the  weights  analysis  is  written  to  a  data  file.  The  data  file  can 
then  be  adjusted  by  the  user  to  make  it  conform  to  the  vehicle  in  mind. 

1.4.1  Description 

To  perform  the  initial  weight  estimation,  simply  select  that  choice  from  the  menu.  This  is 
done  by  either  using  the  arrow  keys  to  place  the  highlite  marks  around  it  or  by  hitting 
function  key  <F1>.  Then,  hit  the  <ENTER>  key.  The  program  will  go  to  the  Preliminary 
Design  routine  and  the  title  screen  will  appear. 

The  computer  will  then  prompt  you  for  the  name  of  the  initialization  file  you  want  it  to  use. 
PD.DAT  is  the  default  data  file  and  you  should  just  hit  <RETURN>  to  use  it.  If  you  have 
a  special  file  you  wish  to  use,  or  if  PD.DAT  is  on  a  directory  other  then  the  current  one  you 
will  have  to  enter  the  complete  file  name,  including  path,  if  any,  at  the  prompt. 

While  the  data  file  is  loaded  in,  a  message  will  be  displayed  on  the  screen  to  "please  wait." 
Once  this  is  done,  the  program  will  ask  for  several  inputs.  The  information  that  is  gener¬ 
ated  by  the  program,  based  on  these  inputs  will  then  be  stored.  At  that  point,  the  program 
will  ask  if  there  is  another  estimate  to  be  done,  if  not,  it  will  return  to  the  main  menu. 

1.4.2  User  Inputs 

To  perform  the  initial  estimation,  the  program  will  obviously  need  some  information  from 
you.  Since  the  aim  of  this  program  was  to  provide  as  much  information  as  possible  with 
the  smallest  amount  of  inputs,  the  amount  of  inputs  will  be  kept  to  a  minimum. 

First,  the  program  asks  the  name  of  the  output  file  to  use.  The  extension  DAT  will  auto¬ 
matically  be  added  on  to  the  name,  or  you  can  specify  any  file  name  you  want.  If  the  file  is 
to  be  written  to  a  different  directory  or  disk  this  should  be  included  as  pan  of  the  file  name. 
At  the  prompt,  enter  the  path  and  filename  and  hit  the  <RETURN>  key. 

The  main  factor  in  determining  the  size,  and  in  turn  weight,  of  the  vehicle  is  the  fuel 
storage.  Therefore,  the  first  input,  and  the  one  with  largest  impact  is  the  amount  of  fuel  to 
be  stored.  At  the  prompt,  input  the  number  of  pounds  of  fuel  that  will  be  on  board  the 
vehicle  and  hit  <RETURN>. 

Since  it’s  possible  to  use  different  fuels,  PDWAP  needs  to  know  the  density  of  the  fuel  you 
are  working  with.  Since  the  fuel  normally  used  in  this  type  of  vehicle  is  liquid  hydrogen,  it 
is  the  default,  just  hit  <RETURN>  to  enter  it.  If  you  would  like  to  use  a  different  fuel, 
enter  the  fuel’s  weight  density  in  pounds  per  cubic  foot. 

The  next  input  is  the  oxygen  to  fuel  ratio  (/)  for  the  vehicle.  This  term  is  the  ratio  vehicle. 
This  term  is  the  ratio  for  the  whole  vehicle.  Therefore,  although  the  rocket  engines  might 
have  /= 6  if  there  is  an  airbreathing  system  as  well,  then  the  hydrogen  to  be  used  for  them 
must  be  taken  into  account  as  well.  This  will  lower  the  f  for  the  vehicle.  The  amount  of 
oxygen  needed  is  then  calculated  from  the  value  input  for  /  and  helps  to  size  the  vehicle. 
Input  the  value  for  f  and  then  hit  <RETURN>. 


1-6 


PDWAP  2.1 
User’s  Manual 


Another  factor  in  the  weight  of  the  vehicle  is  the  number  of  crewmembers  on  board.  This 
number  is  used  to  determine  the  weight  of  accommodations  and  supplies  needed  on  board 
the  vehicle.  Input  the  number  of  crewmembers  and  passengers  and  hit  <RETURN>. 

Next,  you  must  indicate  the  number  of  each  type  of  engine  on  board  the  vehicle.  If  none  of 
a  particular  type  is  used,  then  you  should  enter  zero  (0).  If  you  specify  a  non-zero  number 
of  engines,  then  the  program  asks  for  the  thrust  in  pounds  that  the  engine  produces.  The 
amount  of  thrust  is  for  one  engine  only,  not  for  the  entire  number  of  engines  of  that  type. 

The  program  then  asks  whether  the  vehicle  will  take  off  vertically  or  horizontally.  This  is 
used  to  determine  coefficients  for  the  landing  gear,  as  well  as  whether  the  control  surfaces 
are  sized  for  takeoff  or  landing  weight.  The  initial  data  file  already  contains  the  informa¬ 
tion  for  a  horizontal  takeoff,  so  if  that  is  selected,  the  information  is  just  transferred  to  the 
output  file.  Otherwise,  the  program  makes  several  modifications,  including  using  gimbaled 
engines,  separation  systems,  etc.  Indicate  whether  the  vehicle  will  be  using  a  vertical  or 
horizontal  takeoff  with  a  V  or  H,  then  hit  <RETURN>. 

The  next  item  to  be  input  is  the  amount  of  payload  to  be  carried.  This  is  used  only  to  add 
to  the  weight  of  the  vehicle  and  is  not  used  to  size  the  GDV.  Enter  the  weight  of  the 
payload  in  pounds  and  then  press  <RJETURN>. 

To  better  identify  the  vehicle’s  weight  statement  PDWAP  needs  to  know  the  vehicle’s 
name.  Enter  the  name  of  the  vehicle  at  the  prompt  and  hit  <RETURN>.  If  you  hit 
<RETURN>  without  entering  a  name,  the  name  "No  Name"  is  added  to  the  file.  The  last 
input  is  a  description  of  the  vehicle.  If  you  hit  <RETURN>  without  entering  a  description 
the  program  will  enter  "NONE"  in  the  data  file.  You  can  enter  any  description  up  to  65 
characters  in  length. 

The  program  will  now  build  the  output  file  and  save  it  to  disk.  This  output  file  will  then 
become  the  input  file  for  the  next  phase  in  the  weights  analysis.  Once  this  is  done  the 
program  will  ask  if  another  preliminary  design  is  to  be  done.  Select  Y  or  N,  hit 
<RETURN>  and  the  program  will  continue  with  your  selection. 

If  you’ve  followed  this  so  far  your  screen  should  look  like  Figure  3. 

1.43  Calculations  &  Assumptions 

The  calculations  involved  in  the  preliminary  design  phase  of  PDWAP  center  around 
finding  the  right  size  vehicle  in  response  to  your  inputs.  The  main  factor  is  the  weight  of 
the  liquid  hydrogen  and  oxygen  on  board.  This  determines  the  volume  required  for  the  fuel 
tanks,  which  in  turn  defines  the  size  of  the  vehicle.  The  GDV  used  as  the  model  vehicle, 
has  its  shape  defined  by  several  equations  using  certain  ratios,  based  on  the  volume  of  the 
propellant.  Once  the  volume  required  has  been  calculated,  the  program  then  computes  the 
various  lengths,  areas,  and  volumes  needed  to  define  the  scaled  GDV.  These  values  are 
then  written  to  the  data  file. 
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Since  the  GDV  is  only  a  basic  model  reflecting  a  single  stage  to  orbit  vehicle,  the  data 
generated  may  require  some  modification  to  suit  the  vehicle  under  study.  It  will,  however, 
provide  a  useful  starting  point  when  little  information  is  known  about  the  vehicle. 

The  calculations  and  geometry  used  in  the  Preliminary  Design  routine  are  covered  in 
greater  detail  in  the  Technical  Reference  Manual  (§  2.3.3). 

In  the  process  of  coming  up  with  the  GDV  quite  a  few  assumptions  had  to  be  made.  First, 
the  general  layout  of  the  vehicle  was  based  on  what  seems  to  be  the  current  trend  of 
designs  in  single  stage  to  orbit  vehicles  (See  Figure  4).  The  specific  details  of  the  design, 
and  the  reasons  behind  them,  are  discussed  in  the  section  covering  the  GDV  in  the  Techni¬ 
cal  Reference  Manual  (§  2.3.3). 

The  main  assumption  that  would  affect  the  user  is  that  the  preliminary  design  routine  bases 
vehicle  size  on  internal  storage  of  fuel.  In  a  vehicle  such  as  the  space  shuttle,  where  its  size 
is  defined  by  the  cargo  and  crew  areas,  this  assumption  would  give  poor  results.  In  a  case 
such  as  this,  the  user  would  have  to  calculate  the  required  parameters,  build  the  data  rile, 
and  run  the  weights  analysis  routine. 


1.5  Weights  Analysis 

The  weights  analysis  portion  of  the  program  is  based  on  the  algorithm  in  Weights  Analysis 
for  Advanced  Transportation  Systems  (WAATS)  by  C.  L.  Glatts,  NASA  CR-2024.  You 
are  referred  to  this  source  for  a  more  complete  discussion  of  the  algorithm,  equations,  and 
the  coefficients  used.  The  algorithm  was  modified  from  WAATS  in  several  places. 

The  first  major  modification  was  that  WAATS  allowed  only  one  type  of  engine  at  a  time. 
This  was  not  practical  for  the  type  of  vehicles  that  could  be  studied.  For  example,  a  vehicle 
might  use  rockets  and  turboramjets  for  take  off,  cruise  and  climb  with  turboramjets  only, 
and  then  use  rockets  only  for  escape  to  orbit.  This  could  not  be  handled  by  the  original 
WAATS  code. 

1.5.1  Description 

This  portion  of  the  program  uses  a  data  file,  either  generated  by  the  preliminary  design 
program  or  by  the  user,  to  perform  a  detailed  weights  analysis. 

The  program  reads  in  the  data  file  specified  by  the  user  and  proceeds  to  make  the  calcula¬ 
tions  to  find  the  weights  of  the  various  components  of  the  vehicle.  The  components  arc 
then  summed  to  find  the  landing  and  take-off  weights.  The  take-off  weight  is  then  checked 
against  the  initial  estimate  and  if  it  is  within  the  tolerance  the  solutions  arc  output.  Since 
many  of  the  component  weights  arc  determined  by  the  take-off  or  landing  weight,  the 
program  usually  iterates  several  times  to  find  the  correct  weight  that  will  satisfy  the  system 
of  equations.  Usually  this  iterative  procedure  converges  on  the  answer  in  a  short  period  of 
time  and  is  not  noticeable. 

1.5.2  User  Input 

Since  the  data  necessary  to  run  the  program  is  in  the  data  file,  the  program  does  not  need 
any  user  input  except  for  the  name  and  location  of  the  file.  The  extension  DAT  is  used  as 
the  default  for  the  input  filename.  If  the  data  file  is  stored  under  another  name,  or  if  it  is 
not  located  in  the  current  path,  input  the  filename,  including  drive  or  directory  name  if 
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needed.  The  program  will  then  ask  for  the  name  of  the  output  file.  Again,  a  default  is  used 
for  the  filename.  If  you  hit  <RETURN>  the  output  file  will  be  sent  to  the  old  filename  but 
with  the  extension  OUT  added.  Otherwise,  you  can  enter  any  file  name  and  extension  you 
like.  Your  screen  should  look  like  Figure  5. 

The  program  will  calculate  the  weights  and  the  output  the  results  as  directed.  Once  it  is 
done  the  program  will  ask  if  there  is  another  evaluation  to  be  performed.  If  so  enter  Y  and 
the  program  will  continue.  If  not  enter  N  and  the  program  will  return  to  the  Main  Menu. 

+ 

1.5  J  Program  Output 

The  output  from  the  weights  analysis  routine  consists  of  two  parts.  The  first  is  a  vehicle 
summary  which  lists  the  values  having  the  most  impact  on  a  vehicle  design,  such  as 
geometry,  engine  data,  and  the  standard  ratios  used  to  compare  vehicles.  The  second  part 
is  a  detailed  weight  statement  which  lists  all  the  system  and  subsystem  weights.  A  sample 
weights  statement  from  PDWAP  is  shown  in  Figures  6  and  7. 

1.5  J.l  Vehicle  Summary 

The  top  part  of  the  PDWAP  output  is  the  vehicle  summary.  It  contains  the  vehicle  name,  a 
short  description,  as  well  as  information  about  the  data  and  output  files.  This  information 
was  included  to  help  keep  straight  what  output  was  for  which  vehicle. 

The  next  section  is  the  meat  of  the  vehicle  summary.  It  contains  the  geometrical  values 
which  define  the  shape  and  size  of  the  vehicle.  All  values  are  in  feet  for  lengths  and  square 
feet  for  areas.  This  section  provides  a  good  check  on  the  sizing  of  the  vehicle  if  it  was 
produced  with  the  preliminary  design  routine.  In  some  cases  it  might  require  some  modifi¬ 
cation  to  better  suit  the  actual  vehicle’s  constraints. 

Next,  the  engine  data  is  shown.  This  section  indicates  the  number  of  each  engine  type. 

Below  the  engine  type  and  number  the  maximum  thrust  for  each  engine  is  printed.  The 
values  have  the  units  of  pounds. 

Another  item  in  the  summary  is  the  fuel  information.  The  amount  of  fuel  stored  aboard  the 
vehicle  is  displayed  in  pounds.  Also  the  fuel’s  weight  density  is  shown.  The  density  used 
in  this  program  is  pounds  per  cubic  foot.  The  amount  of  liquid  oxygen  stored,  if  any,  is 
also  given. 

The  next  section  gives  a  brief  look  the  weights  of  the  vehicle.  This  includes  Gross  Take 
Off  Weight  (GTOW),  weight  of  payload  carried,  dry,  landing,  and  entry  or  insertion 
weights.  These  are  all  expressed  in  pounds. 

Finally,  the  standard  ratios  used  to  compare  vehicles  are  printed.  Included  are  wing  load-  * 

ing  (W/S),  Aspect  ratio,  thrust  to  weight  ratio,  and  thrust  loading.  These  were  output  so  it 
would  give  the  you  an  indication  of  how  your  vehicle  measures  up  to  the  usual  rules  of 
thumb. 

1.5  J.2  Weight  Statement 

The  bulk  of  the  output  from  the  weights  analysis  routine  is  the  vehicles ’s  weight  statement. 

This  statement  lists  the  weights  for  all  of  the  systems  and  subsystems  on  the  vehicle.  The 
format  used  for  the  weight  statement  provides  you  with  a  detailed  look  at  the  vehicle. 
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Vehicle  Summary 
Vehicle  Name:  Testl 


Vehicle  Discnption 

:  This  vehicle  is  the  SSTO  demo 

for  ETO 

Data  File  =  TEST1.DAT  Output  File 

=*  TEST  1.  OUT 

Date  =  04-27- 

1989 

□ate 

=  04-27-1989 

Time  =  10:45: 

59 

Time 

-  10:46:13 

Length  =  129 

Height  =  14  Span  = 

57 

TRoot  =  9.2 

SBody  =  4,003 

swing  =  1,633  SVert  = 

163 

SHorz  =  0 

Number  of:  Ramjets 

=  6  Rockets  =>  0 

TurboRamJeta  «*  4 

Thrust  of:  =* 

10,000  =  0 

=  15,000 

Fuel  =  60, 000 

Fuel  Density  =  4.389 

LOX  = 

Weights:  GTOW  = 

133,010  Payload  » 

0 

Dry  =>  71,305 

Landing  = 

72,290  Entry  =  72 

,  770 

Ratios:  GTOW/S  * 

81.47  AR  =  2.017  T/GTOW 

»  0.90 

T/S  =*  73.50 

Weight  Statement 

Group  1 :  Aero 

surfaces 

3,  458 

Wing 

2,166 

Vertical 

1,291 

Horizontal 

0 

Fairing 

0 

Group  2 :  Body 

structure 

28, 425 

Basic  body 

16,245 

Secondary 

3,922 

Thrust 

819 

Integral  fuel  tanks 

7,  438 

Integral  Ox  tanks 

0 

Group  3:  Thermal  Protection  System 

7,164 

Vehicle  insulation 

7,  164 

Cover  panels 

0 

Group  4 :  Launch  and  Recovery  Gear 

4,004 

Launch  gear 

333 

Landing  gear 

3,672 

Group  5:  Propulsion 

19,713 

Rocket  engines 

0 

Ramjets 

840 

Turboramjet 

10, 890 

Nonstructural  fuel  tank 

0 

Nonatructural  Ox  tank 

0 

Fuel  tank  insulation 

497 

Ox  tank  insulation 

87 

Fuel  system 

572 

Oxidizer  system 

286 

Pressurization  system 

6,  152 

Inlets 

350 

Figure  6 
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Weight  statement  for: Test 1 
Group  6 ; 


Page  2 


Orientation  Control  System 

Engine  gimbal  system 


1,801 


Attitude  control  system 
Aerodynamic  controls 
Separation  system 

ACS  tanJcage 

199 

1,282 

399 

0 

Group 

0: 

Power  supply 

Electrical  System 
Hydraulic/Pneumatic  Sys 

1,435 

54 

1,489 

Group 

10: 

Avionics 

4,696 

Group 

14: 

Crew  Provisions 

475 

Vehicle 

Dry  Weight 

71, 

Group 

17: 

Crew 

535 

Group 

18: 

Payload 

0 

Group 

21: 

Residual  Propellant 

Trapped  fuel 

Trapped  Oxidizer 

450 

0 

450 

Group  22:  Reserve  Propellants 
Fuel 

Oxidizer 
ACS  fuel 
ACS  oxidizer 


Group  23:  Inflight  Losses 
Fuel 

Oxidizer 

Group  25:  Main  Propellants 
Fuel 

Oxidizer 


Landing  Weight 


480 

0 

0 

0 


Entry  Weight 


240 

0 


(0,000 

0 

Gross  Weight 


72,290 

480 


72,770 

240 

60,000 


133,010 


Figure  7 
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The  general  style  uses  the  format  outlined  in  MIL-M-38310B  (USAF),  Mass  Properties 
Control  Requirements  for  Missiles  and  Space  Vehicles.  This  was  done  to  standardize  the 
output.  The  subcategories  under  each  group  are  provided  to  give  more  detail  to  the  sub 
systems,  although  different  from  the  MIL  Spec,  they  more  closely  match  the  components 
of  the  vehicle. 

The  entries  labeled  as  "Gross  Weight",  "Entry  Weight",  etc.,  are  the  summation  of  the 
weights  printed  above  them.  They  were  placed  in  their  positions  so  that  you  would  have  a 
feel  about  which  groups  or  subsystems  were  included  in  which  weight. 

It  must  be  stressed  that  the  results  of  the  weights  analysis  routine  are  only  approximations 
based  on  your  inputs.  While  exceptionally  close  results  (Errors  less  then  0.1%)  have  been 
obtained,  this  is  not  always  the  case.  All  results  must  be  taken  with  some  caution,  as  with 
any  analytic  approximations. 


1.6  File  Viewer 

1.6.1  Description 

What  started  out  as  a  rather  crude  file  viewing  routine  has  turned  out  to  be  a  catch-all  for 
PDWAP.  The  first  thing  to  notice  about  File  Viewer  is  that  it  is  menu  driven,  using  the 
same  system  as  the  PDWAP  Main  Menu.  The  screen  should  look  like  Figure  7. 

The  choices  from  this  menu  are: 

1)  File  Viewer 

2)  File  Converter 

3)  DOS  Shell 

4)  Return  to  Main  Menu 

Each  of  the  choices  will  be  covered  in  detail  below.  Since  number  four  is  self  explanatory  4 
we’ll  leave  it  out  of  the  following  descriptions. 

1.6.2  File  Viewer 

As  mentioned  above  File  Viewer  started  out  as  a  rather  crude  file  display  routine.  So  crude 
in  fact,  that  one  co-worker  refused  to  use  it.  Realizing  that  there  were  better  methods 
available.  File  Viewer  started  its  change. 

File  Viewer  is  the  only  part  of  PDWAP  that  is  not  loaded  in  at  run  time.  It  is  activated  by 
using  a  DOS  shell  and  then  accessing  another  program  that  performs  the  file  viewing 
process.  When  the  program  is  finished  it  exits  the  DOS  shell.  This  returns  you  to  the 
PDWAP  environment. 

To  use  File  Viewer,  select  it  from  the  menu  and  hit  <RJETURN>.  At  the  prompt  enter  the 
file  name  of  the  file  you  wish  to  see.  Include  any  drive  or  directory  prefixes  as  needed. 
And  then  follow  the  directions  in  the  File  Viewer  program. 
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File  Viewer  Menu  Screen 


PDWAP  ver  2.1 

Preliminary  Design  and  Weights  Analysis  Program 

File  Viewer 


<<<F1.  File  Viewer>>> 

F2.  File  Converter 

F3.  DOS  Shell 

F4.  Exit  to  Main  Menu 


Select  number  or  use  arrows 
Then  hit  <ENTER> 


Figure  8 
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1.6.3  File  Converter 

As  you  can  tell  from  the  program  version  number,  there  has  been  more  then  one  version  of 
PDWAP.  Since  programs  must  change  in  order  to  maintain  there  usefulness,  there  prob¬ 
ably  will  be  more  versions  in  time.  This  creates  a  potential  problem.  If  the  program  is  to 
change  and  grow,  its  data  structure  could  possibly  change  as  well.  If  this  should  happen 
what  do  you  do  with  old,  but  still  needed  data  files. 

That  was  what  happened  with  the  change  from  version  1.0  to  version  2.0.  Unfortunately 
those  files  had  to  be  either  manually  rewritten  or  discarded.  When  work  was  started  on 
version  2.1  this  was  not  going  to  happen  again.  A  File  Converter  was  added.  This  actually 
involves  only  a  few  minor  corrections,  but  if  not  done  the  program  won’t  work  at  all. 

The  File  Convener  changes  files  from  the  version  2.0  format  to  the  2.1  fomaat.  To  use  the 
File  Converter  just  select  it  from  the  menu  and  hit  <RETURN>.  This  will  activate  the  File 
Converter. 

At  the  prompt  enter  the  File  name  you  wish  to  convert.  The  program  will  then  ask  for  the 
new  tile  name  you  wish  to  use.  The  old  file  name  will  be  the  default.  This  will  replace  the 
old  file  with  the  new  formatted  file.  If  you  would  like  to  keep  the  old  file  unchanged  enter 
a  different  file  name.  After  it  is  finished  the  program  will  return  you  to  the  File  Viewer 
Menu. 

1.6.4  DOS  Shell 

Since  the  File  Viewer  worked  through  a  DOS  shell  it  seemed  only  logical  to  include  it  as 
on  of  the  options  in  the  program.  This  idea  stemmed  from  the  way  we  used  PDWAP  ver 
2.0  in  this  office.  We  would  run  a  vehicle  through  PDWAP,  then  fly  it  in  a  trajectory 
program,  then  back  to  PDWAP  for  changes,  etc.  While  going  through  these  iterations  it 
would  have  been  nice  to  have  one  of  the  programs  create  a  DOS  shell  so  the  other  one 
could  be  run.  Also  while  editing  the  data  file,  which  is  covered  later,  it  would  be  much 
simpler  to  be  able  to  leave  PDWAP  active  and  invoke  a  text  editor.  This  is  why  the  DOS 
shell  was  added  to  PDWAP. 

The  DOS  shell  allows  you  to  temporarily  leave  PDWAP  and  enter  a  second  level  of  DOS. 
From  here  you  can  perform  any  of  the  normal  DOS  functions  like  checking  directories, 
formatting  disks,  etc.  After  you  are  done  enter  EXIT  at  the  DOS  prompt.  This  will  return 
you  to  the  File  Viewer  Menu  in  PDWAP. 

One  word  of  caution,  if  you  change  directories  during  the  shell  you  should  change  back  to 
the  one  in  which  PDWAP  is  in  before  exiting  the  DOS  shell. 


1.7  The  PDWAP  Data  File  System 

Obviously  a  program  such  as  PDWAP  needs  some  way  of  storing  values,  especially  when 
it  is  comprised  of  several  routines  linked  together  put  acting  separately.  For  example,  the 
preliminary  design  phase  does  not  communicate  directly  with  the  weights  analysis  routine. 
Instead  all  values  are  stored  in  a  data  file  which  is  open  and  read  by  the  next  program. 
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The  data  file  also  had  to  be  easily  read,  understood,  and  modified  by  a  human.  This  meant 
that  a  simple  and  clear  method  had  to  be  used  to  represent  the  data.  Preferably  some 
system  that  was  self  documenting  and  understandable  by  someone  with  little  extra  training. 

This  explains  the  reasoning  behind  the  PDWAP  data  file  system.  It  allows  you  to  read 
through  the  file  and  edit  it  without  the  cryptic  and  often  confusing  systems  normally  used 
for  data  files.  The  disadvantage  to  this  system  is  that  the  file  is  rather  large,  about  13K. 
This  disadvantage  was  felt  to  be  acceptable  given  the  ease  of  use  of  the  file’s  structure. 

1.7.1  File  Description 

The  PDWAP  data  file  consists  of  two  main  sections  the  header,  and  the  body.  The  header 
contains  information  which  helps  to  identify  the  vehicle  being  studied.  This  includes  the 
vehicle’s  and  tile’s  name,  date  and  time  the  file  was  prepared,  and  a  description  of  the 
vehicle. 

Next,  the  body  contains  all  the  numeric  information  which  is  used  to  describe  the  vehicle  to 
the  weights  analysis  routine.  The  body  is  divided  into  three  columns.  In  the  first  are  the 
values  themselves.  Second,  is  a  description  of  what  the  value  represents  and  what  units  it 
should  be  in.  The  last  column  contains  the  variable  name  that  is  used  in  the  program.  This 
is  included  to  help  someone  modify  the  source  code.  Each  column  is  defined  by  a  label  at 
the  top  of  the  body  to  further  clarify  their  roles. 

The  body  is  further  divided  into  two  halves.  The  top  half  has,  with  a  couple  of  exceptions, 
all  the  values  representing  the  vehicle.  These  include  the  geometry,  powerplants,  capaci¬ 
ties,  etc.  The  top  half,  therefore,  contains  most  of  the  values  that  may  need  checking  or 
modification. 

The  second  half  is  made  up  of  the  adjustment  coefficients.  There  are  134  adjustment 
coefficients,  each  designated  with  A  and  their  identification  number  in  parenthesis:  ie. 
A(102).  These  are  used  to  adjust  the  historical  data  base  that  the  weights  analysis  is  based 
on. 

They  represent  various  variables  in  the  equations  which  approximate  the  weight  of  your 
vehicle.  For  more  information  on  their  use  see  the  Technical  Manual  (§  2.5) 

1.7.2  Input  File  for  Preliminary  Design 

The  input  file  for  the  Preliminary  Design  routine  is  basically  a  template.  The  routine  reads 
it  in  makes  the  required  changes  based  on  the  information  that  you  input,  and  writes  it  to 
another  file.  This  technique,  while  cumbersome  allows  you  to  use  another  data  file  as  the 
template.  This  can  be  useful  when  the  historical  data  stored  in  the  initial  data  file  doesn’t 
match  the  vehicles  you  are  studying.  If  the  values  had  been  coded  into  the  program  then 
the  source  code  would  have  to  be  modified  in  order  to  change  the  historical  base. 

1.7J  Output  File  from  Preliminary  Design 

As  mention  above,  the  output  is  actually  a  copy  of  the  initial  data  file  with  the  required 
changes  made  to  match  your  input.  This  file  will  then  be  used  by  the  weights  analysis 
routine  to  produce  the  weight  statement. 

1.7.4  Modifying  the  Data  File 

The  main  reason  for  modifying  the  data  file  is  that  it  does  not  adequately  reflect  the  vehicle 
you  are  try  to  simulate.  This  usually  means  that  only  the  vehicle  defining  variables,  located 
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at  the  top  half  of  the  data  file,  will  need  changing.  If  more  serious  changes  are  needed, 
such  as  changes  to  the  adjustment  coefficients  then  you  should  refer  to  the  Technical 
Reference  Manual  (§  2.5). 

The  data  file  was  constructed  so  that  making  changes  would  be  easy.  All  that  you  need  to 
do  is  load  the  file  into  a  text  editor  that  will  support  ASCII  files.  The  easiest  way  to  tell  if 
your  editor  will  work  with  ASCII  files  is  to  use  the  DOS  TYPE  command  on  a  file  you 
have  written  with  it.  If  the  screen  looks  like  what  you  had  in  your  file  then  you  are  OK.  If 
it  looks  like  garbage  and  beeps  at  you  it  is  not  an  ASCII  file. 

To  change  any  of  the  values  put  your  cursor  over  the  value.  With  your  editor  in  an  OVER¬ 
TYPE  mode  enter  die  new  value.  This  should  replace  the  old  value  with  the  new.  If  your 
editor  does  not  support  OVERTYPE  then  you  will  have  to  delete  some  characters  from  the 
old  value  so  the  file  lines  up  properly. 

Now  save  the  file  and  you  are  ready  to  continue  on  with  the  weights  analysis  of  your  new 
vehicle. 

This  process  can  be  done  quickly  by  using  the  DOS  Shell  function  of  the  File  Viewer 
Menu.  This  allows  you  to  exit  PDWAP,  edit  and  save  your  file,  and  then  return  to 
PD  WAP  for  the  next  analysis. 

1.7.5  Creating  a  Special  File 

Some  vehicles  are  just  not  compatible  with  the  GDV  used  in  the  Preliminary  Design 
routine,  one  notable  example  is  the  Space  Shuttle.  This  does  not  mean  that  you  cannot 
perform  a  weights  analysis  on  it.  You  must  just  manually  do  what  the  Preliminary  Design 
routine  does. 

This  involves  finding  all  of  the  geometric  and  other  parameters  used  to  define  a  vehicle. 
Most  of  this  information  can  be  obtained  directly  from  the  vehicle’s  documentation,  such  as 
wing  area,  span,  overall  height,  etc.  Other  values  require  more  work.  Fuel  tank  surface 
area  is  probably  the  worst  case,  but  with  a  few  assumptions  even  this  can  be  solved. 

Once  you  have  all  of  the  necessary  values,  you  can  use  an  existing  data  file  as  a  template  to 
write  your  own  special  file.  As  mentioned  above,  the  editor  you  use  must  be  able  to  save 
the  data  file  in  an  ACSII  format. 


1.8  A  Sample  Case:  The  IGV 

The  IGV,  or  Incremental  Growth  Vehicle,  was  a  study  vehicle  developed  by  McDonnell 
Douglas  to  test  high  Mach  (6  -  9)  engines  and  materials.  Because  of  its  available  design 
data  it  can  be  used  to  show  PDWAP’s  ability  to  perform  a  sizing  and  weights  analysis  on  a 
documented  vehicle. 

The  IGV  is  a  single  seat  vehicle  designed  for  a  air  launch  from  a  B-52  mothership.  It  used 
rocket  power  to  boost  up  to  it’s  test  speed  and  altitude  and  then  used  whatever  airbreathing 
engine  was  installed  for  testing. 

We  will  now  go  through  the  steps  nessecary  to  do  a  first  cut  analysis  of  the  IGV  using  only 
rudimentary  data.  It  is  assumed  that  PDWAP  is  running  and  you  are  seeing  the  Main 
Menu. 
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Step  Action 

1  Select  ’Initial  Estimation’  from  the  menu. 

2  Hit  <ENTER>  to  accept  PD.DAT  as  the  initialization  file. 

3  Enter  the  filename,  IGV. 

4  Enter  the  weight  of  fuel  onboard,  1875.3  lbs. 

5  Hit  <ENTER>  to  accept  the  density  for  LH2- 

6  Enter  oxidizer  to  fuel  ratio,  6. 

7  Enter  the  number  of  crewmembers,  1 . 

8  Enter  the  number  of  rockets,  2. 

9  Enter  the  thrust  of  each  engine,  17000. 

10  Enter  0  for  the  both  the  number  of  ramjets  and  turboramjets. 

1 1  Since  this  is  an  air  launch,  enter  V  so  the  vehicle  will  be  sized  for  landing. 

12  Enter  the  payload  weight,  1500. 

1 3  Enter  the  vehicle ’s  name,  IGV. 

14  Enter  a  description  of  the  vehicle. 

15  Enter  N  for  ’Another  Estimation?  (Y/N)’. 

You  should  now  be  back  at  the  Main  Menu.  The  vehicle  has  been  defined  and  that  infor¬ 
mation  is  stored  in  the  file  IVG.DAT.  That  information  will  be  used  in  the  next  step, 
performing  the  weights  analysis 

16  Select  ’Weights  Analysis’  form  the  main  menu. 

17  Enter ’IGV’ at  the  prompt  for  the  input  file  name. 

18  Hit  <ENTER>  to  accept  the  output  filename. 

19  Enter  N  for  ’Another  Estimation?  (Y/N)’. 

You  should  once  again  be  back  at  the  Main  Menu.  The  complete  vehicle  analysis  is  no 
done.  All  that  remains  is  to  view  the  output  and  check  it  against  the  known  vehicle.  Of 
course,  if  you  were  doing  this  on  your  own  vehicle  you  wouldn’t  have  the  ability  to  check 
answers.  This  is  being  done  to  show  the  capability  of  PDWAP  to  produce  reliable  results. 

20  Select  ’View  Data  File’. 
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21  Select  'File  Viewer’. 

22  Enter  ’IGV.OUT’ 

The  output  file  should  now  be  displayed.  You  can  see  the  entire  file  by  hitting  the  <PgUp> 
and  <PgDn>  keys  or  using  the  arrows.  The  following  table  gives  some  of  the  important 
values  calculated  by  PDWAP  and  as  given  in  the  report  on  the  IGV,  and  also  the  percent 
error  that  is  present  in  the  calculations. 


Description 

PDWAP 

Documented 

%  Error 

GTOW 

28, 931 

27, 463 

5.35 

Entry 

15,751 

14,336 

9.87 

Landing 

15, 646 

14, 011 

11.67 

Dry 

13,763 

11,961 

15.07 

It  is  noteworthy  that  this  vehicle  was  selected  at  random  and  was  not  part  of  the  test  suite 
of  vehicles  used  to  test  and  verify  PDWAP.  The  program  was  in  no  way  groomed  to  work 
with  this  particular  vehicle.  Also,  I  should  point  out  the  if  you  were  following  along  in  this 
example  please  check  the  vehicle  size  values.  The  are  not  in  as  good  an  agreement  as  the 
weights.  The  lengths  arc  nearly  identical,  47  ft  for  PDWAP  versus  45.25  for  the  vehicle, 
however  the  other  values  don’t  agree  well.  This  is  because  of  the  assumptions  made  by 
PDWAP  about  the  vehicle.  It  is  set  up  to  define  the  vehicle  as  a  wave  rider  type  with  more 
of  a  blended  body.  The  IGV  is  more  of  a  conventional  aircraft  structure,  therefore,  the 
values  for  height,  width,  etc.  tend  to  be  off  by  several  feet. 

With  some  grooming  of  the  data  file  a  better  representation  of  the  vehicle  you  arc  working 
on  can  be  obtained.  For  example,  wing  areas,  fuel  tanks  etc.  can  all  be  manually  defined  in 
the  data  file.  The  adjustment  coefficients  can  all  be  adjusted  to  better  fit  the  vehicle  type 
you  are  trying  to  represent.  These  changes,  while  being  simple  in  themselves  would  take 
too  much  time  and  space  to  explain  here,  plus  they  vary  on  a  case  by  case  basis.  The 
coefficients  used  in  the  initialization  file  PD.DAT  have  been  found  to  give  the  best  average 
results  for  the  types  of  high  speed  vehicles  currently  of  interest. 
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2  Technical  Reference  Manual 
2.0  How  To  Use  This  Manual 

The  technical  reference  manual  for  PDWAP  is  broken  down  into  vctions  based  on  the 
individual  subroutines.  These  sections  are  listed  in  the  same  order  as  the  subroutines 
appear  in  the  source  code.  It  is  felt  that  this  system  of  dividing  the  technical  manual  aids 
the  person  who  needs  it  the  most,  the  one  who  is  trying  to  modify  or  just  follow  the  code  as 
it  is  in  the  source  listing.  One  can  follow  the  source  code  and  the  manual  in  the  same  way. 

The  sections  for  each  subroutine  are  further  divided  into  three  sections.  The  first  describes 
the  purpose  of  die  subroutine.  Basically  this  covers  the  ’Why’  of  the  subroutine.  Knowing 
this  up  front  it  should  be  easier  to  describe  the  operation  of  the  subroutine,  and  will  hope¬ 
fully  help  the  reader  understand  the  methods  and  techniques  used. 

The  next  section  describes  the  tables  and/or  data  used  by  the  subroutine.  This  should  give 
you  some  feel  for  what  data  is  needed  by  the  subroutine  and  how  it  will  be  modified. 

The  last  section  about  the  subroutine  is  perhaps  the  most  revealing,  the  processing  per¬ 
formed.  Here  the  subroutine  is  described  by  the  way  it  operates  -  basically  the  algorithm 
used  is  explained  and  any  mathematics  used  are  covered.  These  sections  were  written  not 
to  describe  the  code  line-by-line,  but  to  describe  the  process  the  code  attempts  to  perform. 
To  the  person  with  a  background  in  other  languages,  or  no  language  at  all  this  will  provide 
a  much  better  understanding  of  the  code.  To  the  programmer  who  can  understand  the 
TurboBASIC  language,  this  section  will  perhaps  provide  the  answer  to  any  questions 
looking  at  the  code  will  bring  up,  after  all  no  two  programmers  will  code  the  same  algo¬ 
rithm  in  the  same  way. 

This  section,  as  well  as  this  entire  report  should  help  clear  up  any  questions,  and  help  get 
you  running  and  using  PDWAP. 

2.1  MAIN 

2.1.1  Purpose 

The  MAIN  routine  provides  the  central  control  of  the  program.  It  is  used  to  start  the 
program  and  display  the  main  menu.  Based  on  the  user’s  choice  it  then  invokes  the  appro¬ 
priate  routine. 

The  MAIN  routine  uses  the  MenuDisplay  (§  2.13)  subroutine  to  display  the  main  menu  and 
get  the  user’s  choice.  Other  routines  used  by  the  MAIN  routine  are  PD  (§2.2),  used  to 
perform  a  preliminary  design,  WAATSb  (§  2.4),  for  the  weights  analysis,  and  FileViewer 
(§  2.9),  to  view  a  file  and  perform  other  file  related  functions. 

2.1.2  Tables  and  Data  Referenced 

The  MAIN  routine  assigns  the  strings  needed  by  the  MenuDisplay  (§2.13)  subroutine  to 
the  array  sel$.  These  are  then  used  to  display  the  program’s  main  menu. 

2.1.3  Processing  Performed 

Outside  of  controlling  the  flow  of  the  program,  no  processing  is  performed  by  the  MAIN 
routine. 
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2.2  PD 

2.2.1  Purpose 

The  only  purpose  of  the  routine  PD  is  to  provide  the  front  end  for  the  preliminary  design 
part  of  PDWAP.  It  sets  some  constants  which  are  needed  by  the  routine  PD1  (§2.3)  and 
then  turns  over  control  to  PD1  (§2.3). 

This  routine  functions  inside  of  a  loop  which  is  exited  only  after  the  user  has  selected  that 
she  does  not  wish  to  run  the  routine  again. 

2.2.2  Tables  Referenced 

None. 

2.2 3  Processing  Performed 

None.  Provides  program  control  for  the  PD1  routine,  as  well  as  sets  several  constants 
before  PD1  is  called. 

2.3  PD1 

2J.1  Purpose 

PD1  is  the  core  of  the  preliminary  design  part  of  PDWAP.  It  makes  the  calculations  and 
assumptions  that  determine  the  size  and  relative  shape  of  the  Generic  Design  Vehicle 
(GDV)  that  is  used  as  the  basis  for  the  weights  analysis  to  follow. 

This  part  of  the  code  is  used  when  the  user  does  not  have  enough  specific  information  on  a 
vehicle  to  provide  the  data  required  by  the  weights  analysis  code  WAATSb  (§2.4).  Pro¬ 
vided  with  only  some  rudimentary  information  and  some  assumptions  based  on  the  current 
state  of  hypersonic  vehicle  design,  it  scales  the  GDV  to  match  the  user’s  inputs. 

2.3.2  Tables  Referenced 

The  routine  PD1  uses  the  initialization  file  PD.DAT  or  the  file  specified  by  the  user.  This 
file  is  read  in  line  by  line  and  essentially  copied  to  the  user  named  output  file.  The  changes 
that  are  made  to  the  file  during  the  copying  process  reflect  the  size  and  shape  of  the  GDV 
specified  by  the  user. 

There  are  also  several  flags  and  constants  that  are  changed  based  on  whether  the  vehicle  is 
using  storable  or  cryogenic  fuels  and  its  take  off  mode,  either  horizontal  or  vertical. 

The  routine  reads  in  the  line  as  the  value  and  the  string  containing  the  value’s  description. 
It  will  then  change  the  value  as  needed  and  output  the  value  and  string  to  the  output  file. 

233  Processing  Performed 

PD1  performs  three  types  of  processes  when  it  is  called.  First,  it  queries  the  user  with  a 
general  set  of  questions  about  the  vehicle.  Next,  it  goes  through  a  set  of  mathematical  steps 
defining  the  geometry  of  the  vehicle.  Last,  it  outputs  a  data  file  based  on  the  initialization 
file,  the  user’s  inputs,  and  its  calculations. 

The  following  is  the  algorithm  used  to  define  the  GDV.  It  contains  all  of  the  geometric 
assumptions  and  relations  used  in  the  process. 
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To  start  the  process  some  constants  must  be  assumed.  These  are  defined  in  PD  (§  2.2). 
Constants: 


IT 

=  3.1415926 

=  4.389  lbs/ft3 

°f 

=  8° 

P0>2 

=  71.025  lbs/ft 

a 

r 

=  30° 

w 

TO 

■  3,000,000  lbs 

XLE 

=  82° 

Input  from  user: 


W- 

fu 

N,  . 

tr^ 

p  f  u 

T 

re 

(If 

Nre  *  °> 

f 

T  . 

*3 

(If 

Nrj  "  °> 

N 

crew 

T,  . 
tr;j 

(If 

Ntrj  -  °> 

With  these  constants  known  some  basic  quantities  can  be  calculated: 


3 

* 

It 

Cf 

O 

* 

Eqn 

2-1 

w_ 

V  =  fu 

FuTk 

p  fu 

Eqn 

2-2 

VOxTk  =  WOz 

Eqn 

2-3 

NIntake  =  Nrj  +  Ntr j 

Eqn 

2-4 

TO* 

II 

o* 

M 

+ 

c 

Eqn 

2-5 

AI _ .  ■  6  N_  .  . 

capt  Intake 

Eqn 

2-6 

TTOT  -  NreTre  +  NrjTrj  +  NtrjTtrj 

Eqn 

2-7 

WLand  *  WTO  ~  WP 

Eqn 

2-8 
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Since  the  vehicle  has  the  following  shape  (see  Figure  9)  it  can  be  evaluated  rather  easily. 
The  trick  is  to  get  the  equation  for  volume  into  a  form  which  can  be  solved  for  one  of  the 
unknown  dimensions. 

To  start  with,  the  body’s  volume  can  be  found  by  treating  it  as  two  half-cones  attached  to  a 
half-cylinder.  Since  there  is  no  fuel  stored  in  either  the  midsection  or  forward  cone  they 
can  be  left  out,  for  now,  and  use  the  fuel  volume  as  the  known  quantity.  This  can  be 
written  mathematically  as. 


Vfu  "  <Vfb  -  Vfc)  +  Vrb  2‘9 

Using  the  half  cone  volume  formula,  where  r  is  the  radius  of  the  cone’s  base,  and  h  is  the 
height  of  the  cone: 

V  =  '/,  (7rr2  h/3) 

and  Eqn  2-9  yields: 


=  [  (-nr,  2x_/3  -  nr  2x 


+  7tr, 


'X  ] 

r  J 


r x 
f  c 


+  r  2  x  ) 
b  r' 


Eqn  2-10 


Making  some  assumptions  and  observations,  let: 

xc  =  Kxf  Eqn  2-11 

rfa  =  xftan(of)  Eqn  2-12 

rf  =  xc  tan  (o  f ) 

=  Kxftan((7f)  Eqn  2-13 

xr  =  rfa  /  (tan(or)  ) 

=  xftan  (a  f)  /tan  (a r)  Eqn  2-14 
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At  this  point  it  is  obvious  that  x..  is  the  variable  to  solve  for  in  the  volume  equation. 
Substituting  Eqns  2-1 1  through  2-14  into  2-10  we  have: 


fu 


7T 

6 


[xftan(af)  ]  ;xf  -  [tfxftan  (o  f )  ]  2  ('Axf ) 


+  [xftan  (o  f )  ]  2  xf 


tan  (af ) 
tan  (c>r) 


r  tan  (of) 

f  -  -jj  xf3tan>(of)  +  xf  — — — - 

tan(or) 


,  a  r  63  „  ,  ,  ,  .  tan  (“£> 

“  *f  6  [  64  tan-(of)  + 

t  tan(or) 


This  can  be  neatly  solved  for  Xp 


xf  " 


v  - 

fU  7T 


||  tan2  (of)  + 


tan  (oj)  -j  - 1 
tan(or)  J 


Eqn  2-15 


Now  that  xf  is  known  we  can  backsolve  for  x  ,  r. ,  r~  and  x  using  equations  2-11  through 
2  i4  r  c  o  r  r 

Since  the  two  cone  sections  are  defined  all  that  is  left  is  the  mid-section.  This  can  be 
solved  by  relating  the  length  to  the  oxygen  volume. 

The  vehicle  is  assumed  to  have  the  oxygen  stored  in  seven  cylinders  with  hemispherical 
ends.  These  tanks  are  located  in  a  semicircle  around  the  midsection  (see  Figure  10) 

Using: 

„  r  4  3]  2  3 

V  =  Z,  |_  3  *r  J  =  3  *r 


for  a  hemisphere,  and: 

V  =  nr2* 

for  a  cylinder,  the  oxygen  volume  can  be  defined  as: 

V0xTk  "  7  [  7  "V  +  -  2rt>) 

Simplifying: 
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V0*Tk  -  711  [  7  rt’  +  rt’*m  -  2rt’  ) 
*  7*[  rt*m  '  ~  rt‘  ) 

"  7’(lf~  xm  ‘  45“  ] 


and  solving  for  x  : 

m 


x 


m 


OxTk 

7* 


Eqn  2-16 


Now  that  the  major  dimensions  have  been  found  some  surface  areas  can  be  calculated.  The 
surface  of  the  oxygen  tanks  is  found  in  the  same  manner  as  the  volume;  a  cylinder  with  two 
hemispherical  end  caps. 


SOxTk  "  7[  2Scap  +  Scyl  1 

t)] 

-  7[4*rt!  -  2*rt'  + 

sOxTk  “  [rtxm  +  rt!]  E<*>  2'17 


2  j^4xrts)  +  2*rt[*B  - 


2r 
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GDV  -  LOX  Tanks  Detail 
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Figure  10 
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The  surface  area  of  the  fuel  tanks  can  be  found  by  treating  the  forward  tank  as  half  of  a 
truncated  right  circular  cone  (See  Figure  11).  Therefore  the  area  of  the  forward  tank  is  the 
sum  of  the  area  of  the  half  cone,  the  half  discs  where  the  cone  was  cut.  the  area  of  the  top 
surface,  minus  the  area  of  the  forward  half  cone.  This  can  be  written  as: 


Tkl 


r 

1  2  2  ' 

1  2  .  2  M 

Jrb  +  *£ 

-  7irf  J  rf  +  xc  J 

+  /,  Urb'  +  irrf " ) 


+  X (2rbxf  -  2rfxc) 

■  rb2  +  xf2 1  ■  rfJrf2  +  xc2' +  rb2  +  rf2} 

+  -  rfxc  Eqn  2-18 

The  second  tank  is  easier.  It’s  just  the  half-cone,  triangle  on  top,  and  half-disc  at  the  end. 


STk2 


**rb 


+ 


+  /,  (2rfaxr)  +  y,n rb2 


=  y.*[rjrh2  +  xr2'  +  rb2]  +  xrrfa  Eqn  2 

Now  to  finish  the  body  geometry,  the  length  of  the  vehicle  is: 

Sody  "  xf  +  xm  +  xr  **  2“20 

and  assuming: 

Xw  "  2/3  LBody 
b  -  4rfc 

h  =  rb 

The  wetted  area  of  the  body  is  found  by  summing  the  components  of  the  fuselage. 

SBody  ’  zf"rb  Jrb’  +  *t  +  *rb  Jrb’  +  Kt''l  +  x  *2xrbxm* 

+  X(2rb)xf  +  YA  2rb)xr  +  xm<2rb> 


1 


+  xf  2  ’  +  J  rfc2  +  X 


7) 


+  rb (*xm  *  xi 


+ 


+  2*m> 


19 
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GDV  -  Hydrogen  Tanks  Detail 


Figure  11 
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^Body  ~  rb 


[k*(J  rfa2  +  xf2  '  +  Jrb2+  xr2  ']  +  xf  +  xr 

*)xm] 


+  (2  + 


Eqn  2-21 


The  wing  for  the  GDV  is  basically  a  delta  configuration  and  can  be  approximated  by  a 
triangle.  The  wing  is  assumed  to  have  a  length  of  two  thirds  of  the  fuselage.  Also,  the  span 
is  four  times  the  body  radius.  This  gives  the  vehicle  a  fineness  ratio  of  two. 


Wing 


*xwb 


Eqn  2-22 


The  area  of  the  vertical  fins  is  defined  as  ten  percent  of  the  wing  area  for  stability  reasons. 


S, 


0.1  S, 


Vert  ‘  Wing 
The  structural  span  at  half  cord,  shown  in  Figure  12,  is  given  by: 


Eqn  2-23 


bst  *  J  2  + 


1 


Eqn  2-24 


The  next  value  needed  to  describe  the  wing  is  the  wing  thickness  at  the  root.  For  this  it  is 
assumed  that  the  wing  will  be  a  thin  airfoil  with  a  thickness  to  cord  ratio  of  nine  percent, 
similar  to  a  NACA  0009. 


Root 


'.09[x 


Kb  tanU^)] 


Eqn  2-25 


The  last  value  needed  to  define  the  vehicle  for  PDWAP  is  the  thermal  protection  system’s 
area.  This  area  is  made  up  of  the  lower  surface  of  the  fuselage  and  wing  areas. 


STPS  Sfc  +  Src  +  Scyl  +  SWing 


=  *[*rb[Jrb2  +  xf2'  +  Jrb2  +  x^']] 


+  K  (2xr.  x  )  +  SM. 

b  m'  Wxng 


%7rr. 


.CG 


2  2  1 

b  +  - 


"i 


.  2  +  X  2  +  2x 
b  r  m- 


J 


+  S 


Wing 

Eqn  2-25 


At  this  point  the  preliminary  design  portion  of  PDWAP  is  complete.  All  of  the  values 
needed  to  describe  the  vehicle  to  WAATSb  (§  2.4)  are  known.  This  data  is  then  written  to 
file  and  can  either  be  modified  by  the  user  to  more  closely  match  a  desired  vehicle,  or  used 
directly  by  WAATSb. 
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2.4  WAASTb 


2.4.1  Purpose 

The  routine  WAATSb  is  the  front  end  to  the  subroutine  CalcWts  (§  2.5).  It  gets  the  input 
and  output  data  file  names  from  the  user  and  controls  the  execution  of  CalcWts. 

2.4.2  Tables  Referenced 

None. 

2.43  Processing  Performed 

The  only  processing  that  WAATSb  performs  is  in  the  way  of  interfacing  with  the  user. 

2.5  CalcWts 

2.5.1  Purpose 

CalcWts  is  the  core  of  the  weights  analysis  part  of  PDWAP.  It  reads  in  the  data  from  the 
user  specified  file  and  goes  through  a  series  of  calculations  based  on  the  historical  weights 
analysis  technique. 

NOTE:  WAATS,  the  algorithm  on  which  CalcWts  and  WAATSb  are  based,  is  clearly 
defined  by  C.  R.  Glatt  in  NASA  CR-2420  .  This  system  of  calculations  is  basically  a 
modified  version  of  the  original  WAATS  program.  It  has  been  intentionally  kept  in  the 
same  form  as  the  original,  at  least  as  much  as  the  two  different  languages  would  allow,  so 
that  the  documentation  for  WAATS  could  be  used  to  help  describe  how  WAATSb  (§2.4) 
and  CalcWts  function.  With  this  in  mind  the  user  is  strongly  urged  to  obtain  a  copy  of  the 
WAATS  documentation. 


2.5.2  Tables  Referenced 

CalcWts  uses  the  data  file  specified  by  the  user  and  read  in  WAATSb  (§2.4).  When  the 
weights  analysis  is  complete  the  output  is  sent  to  a  data  file  with  the  name  specified  by  the 
user  in  WAATSb  (§2.4). 


233  Processing  Performed 

The  first  thing  that  CalcWts  does  is  to  calculate  the  total  number  of  engines  on  the  vehicle 
and  the  total  thrust. 


N_  =■  N  +  N  .  +  N.  . 

Eng  re  rj  trj 

T  »NT  +NT  +N  T 
TOT  re  re  rj  rj  NtrjTtrj 

The  number  of  gallons  of  fuel  on  board  is  also  calculated  based  on  the  fuel’s  volume  in 
cubic  feet. 


Gal  -  VFuTk  (7.481  gal/ft3) 

The  program  can  now  begin  to  calculate  the  vehicle’s  weight  based  on  individual  compo¬ 
nents.  A  problem  arises  in  that  most  of  the  weight  equations  use  either  gross  or  empty 
weight  as  one  of  the  parameters.  This  means  that  the  solution  will  have  to  be  an  iterative 
one.  However,  there  are  still  a  few  weight  equations  that  can  be  solved  directly,  and  the 
routine  CalcWts  will  start  with  those. 
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The  fust  to  be  solved  is  weights  of  the  aerodynamic  fairing  and  venical  surfaces.  These 
will  only  be  calculated  if  the  shape  flag  IShape  has  been  set  to  a  non-zero  value  in  the  input 
data  file.  The  equations  for  these  two  weights  are: 


W_  —  A*  S_  +  A# 
Fair  Fair 


Vert 


Vert 


+  As 


The  other  aero-surfaces,  such  as  the  wings  and  horizontal  surfaces  are  based  either  on 
take-off  or  landing  weight,  and  are  therefore  calculated  during  the  iterative  pan  of  the 
program. 

The  body  structural  weight  can  also  be  calculated  now.  This  includes  the  weight  of  the 
basic  body,  secondary,  and  thrust  structures.  The  remaining  structural  items,  are  the  inte¬ 
gral  fuel  and  oxidizer  tanks,  if  used,  are  calculated  later  in  the  program  during  the  iterative 
loop. 


»  Ai  4  S_  .  +  Ai  s 

Basic  Body 


LBodyXlf 

**Body 


Body 


+  Ai  « 


'secst  ’  Al7SBody  +  A“ 


ThrSt 


A,,(Trj"rj  *  TtrjMtrj,+  A,oTreNr«  +  Al  1  +  A” 


The  next  set  of  weights  to  be  calculated  is  the  weight  of  the  thermal  protection  system 
(TPS).  The  weight  of  the  TPS  is  divided  into  two  components,  the  insulation  and  the  cover 
panels.  The  equation  for  each  are: 


"maul  '  A2 1  STPS  *  A’  * 
"cover  _  A”3TPS  +  A” 


And  the  total  weight  of  the  system  is: 


w  s  u  +  w 

TPS  Insul  Cover 


The  next  system  to  be  analyzed  is  the  main  propulsion  system.  This  is  divided  up  into  the 
following  components: 


Turboramjet 

Ramjet 

Rocket 

Intake 

Cryogenic  fuel  system 
Storable  fuel  system 
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The  turboramjet  calculations  start  by  finding  the  pressure  ratio,  P  ,  and  total  pressure,  P 
at  the  design  Mach  number  and  altitude.  These  values  are  gotten  from  the  subroutine 
Atmos  (§  2.8).  The  values  returned  are  then  used  to  find  the  total  pressure  in  the  intake. 

■V 

Pts  -  Pr  Pt, 

Next,  the  air  flow,  W  ,  must  be  calculated  using: 

2i 

W  =  W  0  -  A  . 
a  aRef  ctr 

Now  the  weight  of  the  engine  mount  is  calculated: 

W_  ...  =  A  i  o  2  T,  +A103 

EngMt  trj 

The  total  weight  of  all  turboramjet  engines,  and  their  mounts  on  the  vehicle  is  given  by  the 
relation: 


"trj  *  [ 


A3  2  e 


(A33Wa)  gt2  Phigh  +  A3 « e  (AssW^)  Pt:  Plow 


P  -  P 
low  high 


P  -  p 

high  low 


EngMt 


)  " 

Similarly,  the  weight  of  the  ramjet  mount  and  total  system  on  board  is  given  by: 


WEngMt  "  Al 0  lTr  j  +  Al  ” 

Wr  j  '  <A*’Trj  +  A*3  +  WEngMt>  Hrj 


The  last  of  the  engine  systems,  the  rocket,  is  calculated  in  the  same  manner. 


"EngMt  “  A,,Tre  +  Al ’ 


W  _  »  AssT  +  AssT  A„  .  .  As°  +  As  i  +  W_  „.N 
re  re  re  Ratio  EngMt  re 

The  weight  for  the  inlets  is  found  using  the  following  formulae: 

/  N 

xuapt 

]As  ♦  ,  . 

+  Al  0  5 


W —  .  -  A63  [  (A 


I  Duct 


. .333  .667 

Inlet  "Inlet  v"lCapt  '  "inlet'  *t2 


GFct  FMach 


W._  =  Ai  o  s 

VRamp  L 


1 


N_  .  .  ]a__  .  /  N_  .  .  T_ 

Ramp  Inlet  J  ICapt  Inlet  Fct 


j  Al  0  7 


W 


Spike 


+  At  o  8 
=  Ai  o  s  N 


Inlet 
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W„  ,  ^  ^  +  w,„,  +  w„ 

Inlet  IDuct  VRamp  Spike 

which  is  used  only  if  the  vehicle  has  airbteathing  engines  (N^  *  0  or  -  0). 

The  last  of  the  main  propulsion  system  to  be  calculated  is  the  fuel  system.  This  is  divided 
into  two  pans,  one  for  cryogenic  fuels  (ie.  H2  &  LOX)  and  one  for  storable  fuels  (ie.  JP-4). 
To  decide  which  is  used  a  flag  called  ICry  is  used.  If  the  flag  is  set  to  1  in  the  data  file  then 
the  vehicle  is  using  cryogenic  fuels,  and  the  following  calculations  are  made. 

First  the  weight  of  the  insulation  of  the  fuel  and  oxidizer  tanks  are  found: 

"insFt  ”  A,oSFuTk  +  K" 

"inaOt  “  A,sSOxTk  +  A* 3 

Next,  the  weight  of  the  pressurization  and  distribution  system  are  calculated: 

WPrSys  =  AsoVFuTk  +  A<8VOxTk  +  As 2 

WFuSys  *  A*  4  TTot  +  A4sLBody  +  A< 6 

WOxSya  “  A47TTot  +  A<8LBody  +  A* 6 
If  the  tanks  are  integral  their  weight  is  calculated  based  on  the  following  equations: 

"inFuT  '  Al 3 0 VFuTk  +  Al3' 

"inOxT  “  A,3,VOxTk  +  Al33 

If  they  are  not  integral  tanks,  different  coefficients  are  used  and  the  equations  are 

"inFuT  *  A3,VFuTk  +  A” 

WInOxT  "  A>,VOxTk  +  A” 


If  the  fuel  is  storable  then  a  totally  different  set  of  equations  are  used  to  find  the  fuel 
system  weight.  The  weight  of  the  fuel  container  is: 


FuCnt 


*-NTanksJ 


Tanks 


+  A3  T 


The  pressurization  system,  boost  pump,  and  fuel  distribution  system  weights  arc  given  by: 


W_  _  *  .009  T_  ,  N_  , 

PrSys  Tot  Tanks 


BPump 


ooi  TTot(1.75  +  .266  »Eng) 
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W„.  .  ,  =  N_  Ai 
Distl  Eng 


f  Tot 

0<  I  N_ 

L  Eng 


0  .  5 


WDist2  "  -255  Gal°'7NTanks 


0  •  2  S 


The  fuel  control,  refueling  system,  drains,  and  seal  system  weights  are  found  using: 


WFCont  -  °'169  NTanks 


I 


Gal 


WReFuel  *  NTanks<3  +  ‘4S  Gal 


0  .  3  3  3  ) 


V*  =  .159  Gal 

Drain 


0  .  6  S 


Mseal  *  -045  NTank3 (Gal/NTank3) 


0  .  7  S 


The  weight  of  the  complete  storable  fuel  system  is  then  the  summation  of  the  components 
calculated  above. 


WFuSys  WBPump  +  WDistl  +  WDiat2  +  WFCont 

+  WReFuel  +  WDrain  +  WSeal 

The  final  calculation  of  the  main  propulsion  system  is  to  sum  all  the  values 
found  so  far: 


WPropU  ~  Wtr j  +  WRamJ  +  WREng  +  WFuCnt  +  WOxCnt  +  WInsFT 

+  WInsOT+  WFuSys  +  WOxSys  +  WPrSy 3  +  WInlet 
this  gives  the  total  weight  for  the  main  propulsion  system. 

At  this  point  we  have  enough  information  to  calculate  the  weight  of  the  body  structure  it 
self.  This  is  done  by  summing  the  components  that  form  the  structural  part  of  the  fuselage. 
This  includes  the  integral  fuel  and  oxidizer  tanks  if  they  are  used. 

WBody  =  WBasic  +  WSecSt  +  WThrSt +  WInFuT  +  WInOxT 

Next,  the  weight  of  the  crew  and  their  life  support  system  is  calculated.  This  will  use  the 
following  equation.  Note  that  if  the  vehicle  is  unmanned  that  the  equation  is  still  used  but 
should  be  equal  to  zero,  unless  the  user  has  input  a  fixed  weight  for  At  3 . 


W_ 

Crew 


=  A7  2 


N 


Crew 


+  A7  3 


The  last  thing  to  be  calculated  before  the  iterative  section  is  the  fuel  data.  The  weights  to 
be  calculated  are  for  the  main,  reserve,  lost,  and  residual  propellants.  The  main  fuel  and 
oxidizer  are  calculated  as  follows: 


WFuelM 


WPMain 


/  (1  +  /) 
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WOxidM  WFuelM  J 

W  —  M  +  W 

PropM  FuelM  OxidM 

The  reserve  fuel  is  that  which  is  held  onboard  for  a  later  maneuver  or  for  contingency 
reasons.  The  reserve  fuel  is  found  with  these  equations: 


W__  =  AmW^  , . .  +  As  5 

FResv  FuelM 

W__  =  A8  6  .  ...  +  A8  7 

OResv  OxidM 


W_  =  w__  + 

Reap  FResv  OResv 

The  lost  fuel  is  the  fuel  that  is  lost  during  flight  either  through  boil  off  with  cryogenic  fuels, 
or  leakage  with  storable  fuel.  This  part  of  the  fuel  weight  can  be  calculated  using  the 
following  equations. 


W__ 

FLoss 

WOLoss 


A,“MFuelM 
A"*  WOxidM 


W„T  =  +  w 

PLoss  FLoss  OLoss 

Residual  fuel  is  the  fuel  that  is  unable  to  be  removed  from  the  tank  during  operation.  This 
is  basically  trapped  fuel  or  ullage.  The  equations  used  to  find  the  trapped  fuel  are: 


WFTrap 

=  A92WFuelM 

+  As  3 

vr 

=  As  4  W_  .  ... 

+  As  s 

OTrap 

OxidM 

W  .  , 

=  w  +  w 

Res  id 

FTrap 

OTrap 

At  this  point  all  of  the  weights  that  can  be  calculated  in  a  close-form  method  have  been 
found.  The  rest  of  the  vehicle’s  weight  is  dependant  on  functions  that  are  based  on  either 
take-off,  landing,  or  dry  weight.  Therefore,  some  iteration  scheme  is  needed. 

The  method  used  starts  with  an  approximate  value  of  take-off  and  landing  weights.  The 
weights  of  all  the  remaining  components  are  calculated  and  then  summed  to  form  a  new 
estimate  at  the  final  weights.  This  series  of  steps  continues  until  the  percent  error  between 
the  last  estimate  and  the  present  one  is  lower  then  0.01%. 

The  first  of  the  equation  sets  needing  the  final  weights  are  the  equations  for  the  aero  sur¬ 
faces.  These  equations  are  used  only  if  the  flag  IShape  is  set  to  1  which  indicates  that  the 
vehicle  does  have  wings  and  horizontal  surfaces. 

The  weight  of  the  wing  has  three  basic  parts.  The  first  is  based  on  the  take-off  weight,  and 
the  second  on  landing  weight.  They  are  used  to  base  the  weight  of  the  wing  on  the  amount 
of  load  it  will  encounter.  The  equation  works  by  having  the  coefficient,  either  Ai  or  A2, 
for  the  part  that  is  not  being  used  set  to  zero.  This  would  either  be  done  during  PD1  (§2.3) 
or  by  the  user  creating  a  custom  data  file.  The  remaining  part  is  the  weight  based  solely  on 
surface  area  of  the  wing  and  the  constant  wing  weight.  These  represent,  basically,  weight 
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penalties  that  can  be  set  by  the  user. 


A7  8 


Ai 


W„, 


Wing  1Q. 


WTOXLFbstSWing 


Root 


+  A2S...  +  A3 


Wing 


Ai  1  8 


Ai  1  7 


10 


W__XT  _b  .  S.T. 

TO  LF  at  Wing 


Root 


The  next  equation  is  the  one  for  horizontal  surface  weight.  It  is  similar  to  wing  weight,  in 
that  it  has  parts  for  both  the  take-off  and  landing  conditions. 


W„  =  As 
Horz 


0  .  s 


W 


TO 


So¬ 

wing 


1.2  _  0.8 


'Horz  %nax 


As  0 


+  A? 


+  Ai  9  9 


0  .  6 


W, 


TO 


Wing-* 


,  1  . 2  o.a 

*Horz  Tiiax 


Ai  2  0 


At  this  point  all  of  the  individual  items  that  make  up  the  aero  surfaces  have  been  calcu¬ 
lated.  The  only  thing  left  to  do  is  to  sum  them  up  to  get  the  total  weight  of  the  aero  sur¬ 
faces. 


W„  _  =  w„.  +  W„  .  +  W„  +  W_ 

Surf  Wing  Vert  Horz  Fair 

The  next  weight  group  to  be  found  is  the  weight  of  the  orientation  controls  and  separation 
system.  The  orientation  controls  are  made  up  of  the  engine  gimbal  system  used  to  deflect 
the  rocket  engine  to  change  direction,  orbital  maneuvering  system  (OMS)  engines,  and 
vernier  engines.  Also,  any  aero  control  surfaces  used  to  provide  guidance  and  control, 
such  as  aeilerons,  trim  tabs,  etc. 


The  following  equations  give  the  weights  for  the  gimbal  system,  OMS  engines,  fuel  and 
oxidizer,  tankage,  aero  controls,  separation  system,  and  reserve  OMS  fuel. 


w 


Gimbal 


=  A6  5  T, 


Ai 


1  0 


Del 


+As  6 


W„„„  = 

AGS 

WACSFu 

WACSOx 


As  7W 


As  8 


TO 


=  Ao  e  W. 


Entry 


+  As  9  + 
+  As  7 


WACSFu  ^ ACS 


A 1  2  4  W, 


Al  25 


Entry 
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=  A6  4  +  W  ___  )  +  A6  s 

ACSTk  ACSFu  ACSOx' 

,  ,  *  rry  0*667.-  ..0*2S-iAlll  _ 

W,  =  Ae a |Wmrt  ( L_  ,  +b)  I  +  Ah i 

Aero  L  T0  Body  J 


*  O  f)  /  .  —  •  t  tP  •  A.  *) 

+  Ai  1 2 | W  .  (L0  ,  +  b) 

[_  Entry  Body 


(I  .  2  5  A !  1 


WSep  =  A62Wto  +  A63 
WACSP  =  WACSFu  +  WACS0x 
WACSRe  =  AllsWACSP 

Summing  up  the  weights  of  these  components  we  have: 

W  -  ^  =  W_.  *  ,  +  W--,-  +  +  w,  +  w„ 

Ornt  Gimbal  ACS  ACSTk  Aero  Sep 

The  next  group  to  calculated  is  the  power  supply,  conversion,  and  distribution  system. 
This  system  is  broken  down  into  two  systems,  the  electrical  and  hydraulic,  also  hydro- 
pneumatic  system. 


W_,  ,  =  As  e  [J  W_  '  L_  , 

Elect  LJ  TO  Body 


'Body°  "  2  5  ]  Al  1  2  +  As  7  + 
A12e[Jw_.  'l.  .  0‘25]a,27 


u  "Entry “Body 

The  hydro-pneumatic  system’s  weight  can  be  found  using  this  equation: 


W„  _  =  As  s 

HyPnu 


=  As  e  fSrT.  +  S„  +  S„  .  1 
i  Wing  Horz  VertJ 

.wwr”  a” + * 


Q,.  10,33( 

Max 

1000 


+  As  9  +  A 1  2  8  W_  _  +  A 1  2  9  W_  , 

TO  Entry 


The  power  system  is  just  the  total  of  these  two  subsystems. 

WPwrSy  ~  WElect  +  WHyPnu 

The  remaining  systems  yet  to  be  described  are  relatively  simple.  The  weight  of  the  avion¬ 
ics  is  given  by: 

Vono  -  a'”wtoA"‘  +  A” 

The  aircraft’s  crew  systems,  such  as  life  support,  rescue,  etc.  is  found  using  the  following 
formula. 


WCProv  =  A74WTO  +  A8oNCrew  +  At 5 
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On  many  vehicle  designs  there  are  parts  of  the  vehicle  that  are  used  during  launch  or 
separation,  and/or  landing.  Examples  of  this  would  he  the  landing  gear  on  horizontally 
launched  or  recovered  aircraft.  The  gear  does  not  have  to  he  used  during  both  launch  and 
recovery.  One  example  that  clearly  illustrates  this  is  the  Space  Shuttle,  its  gear  are  sized 
for  landing  only,  they  don't  have  to  support  the  weight  of  the  entire  vehicle.  The  savings  in 
strength  is  directly  translated  into  a  weight  savings. 

The  following  equations  provide  the  weights  of  the  launch  and  recovery  equipment.  The 
equation  for  the  gear  has  two  parts  one  is  for  landing  weight  and  the  other  for  weight  at 
take-off.  the  coefficient  for  one  of  the  two  should  be  set  to  zero.  The  is  taken  care  of  in 
PD1  (§2.3.3),  but  if  you  are  using  a  user  written  file  care  must  be  taken 


w  =  A2  3  W  +  A2  4 

Launch  TO 

„  ,  ,,  Ai  0  1  .  ,  Ai  2  1 

W  =  A2  s  W  +  A2  6  W 

LGear  TO  Land 


+  A2  7 


^Gear  ^Launch  +  ^LGear 

The  vehicle’s  dry  weight  can  now  be  found.  This  is  the  weight  of  the  vehicle’s  structure 
and  the  inanimate  objects  that  would  be  found  secured  inside.  This  does  not  include 
payload  or  fuel,  and  is  similar  to  the  weight  of  the  vehicle  as  delivered  or  when  put  into 
storage. 


W_  =  w„  _  +  W„  ,  +  VJ  „  +  V*  +  ..  +  W„ 

Dry  Surf  Body  TPS  Gear  PropU  Ornt 

+  W_,  _  +  W,  +  wr 

PwrSys  Avonc  CProv 

A  factor  often  included  in  the  weights  analysis  is  the  design  contingency.  This  is  based  on 
the  dry  weight  of  the  vehicle  and  is  a  figure  of  how  much  growth  is  designed  into  the 
vehicle.  Often  this  number  is  about  5%  of  the  vehicle’s  dry  weight. 


w 

Cont 


AbsW 


Dry 


+  A99 


The  empty  weight  of  the  vehicle  is  the  dry  weight  of  the  vehicle  plus  the  contingency 
weight.  On  many  vehicles  designed  for  a  particular  purpose  these  weights  would  be  the 
same. 


w_  .  = 

Empty  Dry  Cont 

The  landing  weight  of  the  vehicle  is  the  next  greater  and  is  made  up  of  the  empty  weight 
plus  the  weight  of  what  ever  is  brought  back  from  the  mission.  In  this  case  the  payload  is 
assumed  to  be  brought  back.  At  first  glance  this  may  seem  like  a  rather  foolish  assump¬ 
tion,  but  in  the  case  of  an  experimental  payload,  or  recconasance  package  it  begins  to  make 
sense.  Also,  the  weight  of  the  crew,  and  any  residual  fuel  are  included  in  the  landing 
weight. 

WLand  “  WEmpty  +  WPayLd  +  WCrew  +  WResid  +  WACRe 

Adding  the  weight  of  the  reserve  and  OMS  propellants  to  the  landing  weight  gives  the 
entry,  or  insertion  weight. 
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W  _  uj  +  W  4-  W 

Entry  Land  ACSP  ResP 

The  final  weight  is  the  gross  take-off  weight.  This  is  the  sum  of  the  entry  weight  and  the 
total  amount  of  propellant  aboard. 

U  =  W  +  W  4-  W 

TO  Entry  PMain  PLoss 

Once  the  take-off  weight  is  calculated  it  is  compared  with  the  value  calculated  on  the  last 
pass  through  the  iterative  part  of  the  routine.  If  it  is  not  within  the  tolerance  then  the 
process  repeats  itself  with  the  new  values  of  the  gross  take-off.  entry,  and  landing  weights 
and  recalculates  the  other  weights  until  the  tolerance  is  achieved. 

2.6  GetData 

2.6.1  Purpose 

This  subroutine  handles  the  actual  I/O  for  WAATSb(§  2.4).  It  gets  the  filenames  for  the 
user  and  reads  in  the  input  data  file.  It  also  checks  for  any  DOS  errors  and  sends  program 
control  to  the  error  handling  routine  ErrChk  (§2.21).  The  reason  for  having  a  separate  I/O 
routine  was  to  enable  the  code  to  be  easily  modified  for  different  systems  as  the  need 
arouse. 

GetData  also  sets  several  constants  and  the  data  required  for  the  atmospheric  subroutine, 
Atmos  (§  2.7). 

2.6.2  Data  Referenced 

GetData  uses  the  input  data  file  specified  by  the  user.  It  reads  in  the  values  and  assigns 
these  to  there  appropriate  variables.  The  subroutine  also  reads  in  the  data  stored  in  the 
atmospheric  table.  This  table  contains  the  base  height,  lapse  rates,  base  pressure  (in  mm 
Hg),  base  temperature  (in  deg  K),  and  an  indicator  for  which  pressure  model  to  use. 

2.6 3  Processing  Performed 

The  processing  which  GetData  does  is  limited  to  getting  the  file  names  for  the  input  and 
output  data  files,  reading  the  input  files  and  setting  the  necessary  constants  which  will  be 
used  by  CalcWts  (§  2.5). 

2.7  Atmos 

2.7.1  Purpose 

Atmos  is  an  atmospheric  modeling  subroutine  based  on  the  1962  Standard  Atmosphere.  It 
provides  the  data  required  to  size  and  approximate  the  weight  of  the  airbreathing  engines  in 
CalcWts  (§2.5). 

2.7.2  Data  Referenced 

Atmos  does  not  directly  access  any  data  tables.  All  data  which  it  uses  has  been  stored  in 
arrays  by  GetData  (§2.6). 

2.7  J  Processing  Performed 

The  subrutine  Atmos  first  finds  the  index  for  the  constants  that  must  be  found  in  the  arrays 
mentioned  above.  This  involves  finding  the  isotherm  or  lapse  rate,  and  base  temperature 
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which  corresponds  to  the  given  geopotential  altitude.  The  subroutine  then  uses  that  infor¬ 
mation  to  calculate  the  temperature. 

Next  the  pressure  is  calculated  based  on  a  base  pressure  and  the  change  in  temperature 
from  the  base  temperature.  This  information  is  then  used  to  calculate  the  density  at  the 
given  altitude. 


2.8  Display 

2.8.1  Purpose 

Display  is  the  routine  that  provides  the  final  output  for  the  weights  analysis  routine, 
WAATSb  (§2.4).  The  output  is  sent  to  the  file  specified  by  the  user  during  the  routine 
GetData  (§2.6). 

The  output  format  was  chosen  so  the  user  would  have  a  good  look  at  the  overall  configura¬ 
tion  of  the  vehicle,  as  well  as  the  complete  weight  statement.  To  do  this  the  output  is 
divided  into  two  sections.  The  first  section  contains  a  description  and  file  data,  all  of  the 
vehicle’s  main  dimensions,  and  some  of  the  more  important  ratios. 

The  second  part  of  the  output  is  the  vehicle’s  weight  statement.  The  style  of  the  statement 
was  based  on  MIL-M-38310B  (USAF),  Mass  Properties  Control  Requirements  for  Missies 
and  Space  Vehicles.  This  defines  the  group  assignments  for  the  specific  items  and  sys¬ 
tems.  The  vehicle  weights  such  as  dry  weight,  entry  weight,  etc.,  where  placed  in  the 
output  where  it  was  felt  the  user  would  have  a  sense  of  what  systems  or  components  where 
added  to  obtain  that  weight. 

2.8.2  Data  Referenced 

None. 

2.8  J  Processing  Performed 

Display  is  called  by  WAATSb  (§2.4).  The  function  of  Display  is  straight  forward.  It 
prints  all  of  the  data  to  the  file  named  by  the  user.  Once  this  is  done  control  is  passed  back 
to  WAATSb  (§2.4). 

2.9  FileViewer 

2.9.1  Purpose 

FileViewer  originally  started  out  as  a  utility  to  allow  the  user  to  see  the  data  and/or  output 
files.  In  time  this  routine  became  a  separate  sub-menu.  This  was  done  to  allow  more 
options  for  the  user  to  select  from.  Essentially,  this  has  routine  serves  the  same  function  as 
Main  (§  2.1),  it  provides  a  way  to  direct  and  control  the  flow  of  the  program  when  it  is  in 
the  FileViewer  sub-menu  area. 

2.9.2  Data  Referenced 

None.  The  only  data  used  is  the  assignment  of  the  appropriate  option  names  to  the  array 
sel$  to  be  used  by  MenuDisplay  ( §  2. 13). 

2.9  J  Processing  Performed 

As  mention  above  in  the  purpose  section,  the  processing  that  FileViewer  does  is  manage 
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the  flow  of  the  program.  Control  is  passed  to  it  by  Main  (§2.1),  and  then  based  on  the 
user's  choice  control  is  temporarily  passed  to  one  of  the  subroutines  SOut  (§2.10),  Convert 
(§2.12),  or  DOSShell  (§2.13).  When  the  user  selects  to  return  to  the  main  menu  program 
control  is  then  passed  back  to  Main  (§2.1). 


2.10  SOut 

2.10.1  Purpose 

The  reason  for  SOut  is  so  the  user  can  see  the  files  she  is  working  on  without  having  to 
leave  the  program  PDWAP. 

2.10.2  Data  Referenced 
None. 

2.10  J  Processing  Performed 

The  subroutine  SOut  is  called  by  the  routine  FileViewer  (§2.9).  The  first  thing  the  subrou¬ 
tine  does  is  ask  the  user  what  file  he  would  like  to  see.  If  the  user  has  input  a  filename  the 
subroutine  then  clears  the  screen  and  creates  a  DOS  shell.  The  program  then  calls  the 
COM  file  PD1  with  the  filename  given  by  the  user  as  an  input  parameter. 

The  user  can  now  view  his  file,  and  after  exiting  PD1  wil  be  returned  back  to  PDWAP’s 
File  Viewer  menu. 

2.11  DOSShell 

2.11.1  Purpose 

The  subroutine  DOSShell  was  added  to  the  PDWAP  system  to  allow  the  user  to  exit  to  a 
temporary  DOS  shell  to  perform  regular  DOS  functions,  or  run  a  second  program  without 
having  to  exit  PDWAP,  memory  permiting. 

2.11.2  Data  Referenced 

None.  This  function  makes  use  of  the  DOS  functions  already  present  in  the  operating 
system.  To  create  the  DOS  shell,  however,  DOS  must  have  access  to  the  file  COM- 
MAND.COM  to  set  up  the  shell.  If  this  file  is  not  available,  then  DOS  will  print  a  message 
to  that  effect  and  control  will  revert  back  to  PDWAP.  At  that  point  the  File  Veiwer  menu 
will  be  dispalyed. 

2.11J  Processing  Performed 

In  essence,  none.  This  subroutine  simply  passes  temporary  control  to  the  operating  system. 
Once  the  user  is  finished  and  types  EXIT  at  the  DOS  prompt  she  will  be  returned  to 
PDWAP. 


2.12  Convert 

2.12.1  Purpose 

The  purpose  of  the  subroutine  Convert  is  to  convert  existing  version  2.0  data  files  to  the 
new  2.1  format.  This,  of  course,  was  done  as  a  means  to  conserve  the  work  that  was  done 
using  the  older  version  of  PDWAP.  This  also  is  a  means  of  assuring  new  users  that  their 
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time  invested  in  using  PDWAP  is  a  concern  of  the  author,  and  any  new  releases  of 
PDWAP  will  have  this  feature  as  well.  This  will  enable  users  to  upgrade  without  the  pain 
of  having  to  either  lose  data  or  redue  alot  of  work. 

2.12.2  Data  Referenced 

Convert  use  the  filename  given  by  the  user  as  the  old  file  and  reads  that  in  as  it  makes  the 
required  corrections  and  additions. 

2.12  J  Processing  Performed 

The  subroutine  Convert  after  having  asked  the  user  for  the  old  filename  and  the  filename 
he  wishes  to  use  for  the  new  file.  If  the  user  wishes  to  keep  the  same  filename  he  can 
enter  it  as  the  new  name  as  well.  PDWAP  will  create  a  temporary  file,  write  the  data  to  it 
and  then  kill  the  old  file  and  then  rename  the  temporary  file  to  replace  it.  The  subroutine 
then  askes  the  user  for  the  vehicle  name  and  description  and  then  starts  to  make  the  addi¬ 
tions  to  create  the  new  data  file. 


2.13  MenuDispIay 

2.13.1  Purpose 

This  subroutine  provides  the  initial  screen  for  all  of  the  routines,  plus  does  the  menus  when 
the  are  needed.  To  provide  the  menu  function  of  moving  the  highlite  bar,  the  subroutine 
uses  several  very  small  subroutines  which  are  straight  forward  and  particular  to  the  Turbo- 
BASIC  language.  The  will  not  be  covered  in  this  manual. 

2.13.2  Data  Referenced 

None,  with  the  exception  of  the  array  containing  the  menu  choices,  if  needed. 

2.13 3  Processing  Performed 

In  general  this  subroutine  just  does  the  screen  I/O  for  PDWAP.  The  user  interface  is  very 
rudimentary,  this  was  done  intentionally  so  it  could  operate  on  a  wider  variety  of  machines. 
Since  the  processing  that  is  done  is  specific  to  the  PC  class  machine  and  the  language  used 
here,  and  also  since  it  has  no  bearing  on  the  calculations  performed  by  the  program,  it  will 
not  be  covered  in  depth  here. 

2.14  ErrChk 

2.14.1  Purpose 

This  subroutine  is  a  general  purpose  error  handling  routine.  It  is  used  to  alert  the  user  to 
any  possible  system  errors.  This  mainly  includes  disk  access  and  printer  errors.  The  use  of 
this  subroutine  cuts  down  on  the  possibility  of  a  systen  crash  or  the  program  bombing 
because  of  a  minor  DOS  error. 

2.14.2  Data  Referenced 

The  only  data  used  by  this  subroutine  is  the  DOS  error  code  returned  in  the  variable  err. 
This  value  is  assigned  by  the  system  when  an  error  condition  is  encountered. 

2.143  Processing  Performed 

This  subroutine  just  has  a  set  of  logical  checks  that  are  performed  to  determine  the  value  of 
the  error  code,  and  therefore  the  cause  of  the  error.  It  then  alerts  the  user,  and  returns 
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control  to  the  location  in  the  code  that  the  error  ocurred  on.  Now.  if  the  user  has  cleared 
the  error  causing  condition  (ie:  put  paper  in  the  printer  for  an  ’Out  of  Paper’  error),  the 
program  will  continue. 


References 

The  following  is  more  a  list  of  selected  reading  on  the  subject  of  weights  analysis  and 
preliminary  design  then  a  reference  list.  During  the  process  of  writing  the  code  that 
became  PDWAP  much  reading  was  done  to  gain  some  insight  into  the  "black  magic"  field 
of  weights  analysis. 

The  main  source  of  information  that  I  used  was  the  report  by  Glatt  on  the  program 
WAATS.  This  is  suggested  as  a  companion  reference  to  the  PDWAP  User’s  and  Technical 
Manuals.  In  order  to  keep  the  program  as  near  to  WAATS  as  possible,  I  purposely  used 
the  same  variable  names,  where  they  made  sense,  in  PDWAP  a  in  WAATS.  Hopefully  this 
will  allow  the  user  to  follow  the  code  and  procedures  used  to  implement  this  program. 

Franciscus,  L.  C.  and  J.  L.  Allen:  Upper-Stage  Space-Shuttle  Propulsion  by  Means  of 
Seperate  Scramjet  and  Rocket  Engines.  NASA  TN  D-6762,  May  1972.  (NOTE:  Used  to 
style  the  GDV.) 

Glatt,  C.  R.:  WAATS  -  A  Computer  Program  for  Weights  Analysis  of  Advanced  Trans¬ 
portation  Systems.  NASA  CR-2420.  September  1974. 

MacConochie,  I.  O.  and  R.  W.  Kilch:  Techniques  for  the  Determination  of  Mass  Proper¬ 
ties  of  Eaith-to-Orbit  Transportation  Systems.  NASATM-78661.  June  1978. 

MacConochie,  I.  O.  and  R.  W.  Lemessurier:  Weight  Trends  for  a  Fully  Reusable  Single- 
Stage  Shuttle.  NASA  TM-85656.  September  1983. 

MacConochie,  I.  O.,  J.  A.  Martin,  C.  A.  Brenier,  J.  A.  Cerro:  Weights  Assesment  for 
Orbit-on-Demand  Vehicles.  Society  of  Allied  Weight  Engineers,  Paper  No.  1674. 
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This  appendix  contains  the  complete  listing  and  variable  cross-reference  for  the  program 
PD. BAS.  The  program  is  written  in  Turbo  BASIC  by  Borland  International.  The  line 
numbers  at  the  right  of  the  code  are  for  reference  only  and  are  added  by  the  crossrefemec- 
ing  program  to  aid  in  identifying  portions  of  code.  Any  duplications  of  line  numbers 
indicates  a  continuation  line,  and  is  to  be  regarded  as  being  part  of  the  same  logical  line. 

Following  the  program  listing  is  a  variable  listing.  This  list  all  the  variables  used  in  the 
program  by  name  and  the  line  number(s)  they  were  used  on. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


option  baa*  1 

dim  A(134)  ,HB<8)  ,PB<8)  ,ALM<8)  ,TMB<8)  ,  JSWA(8) ,  s*U  (4) 
'  Tltl*  Scram 


cla 

print  " 
print  " 
print  " 
print  ” 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  " 
print  ” 
print  " 
print  ” 
print  " 


%%%%%%%%%%%%%%%%%%*%%%%%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%  PDWAP  2.1  « 

%  % 
%  Preliminary  Design  and  Heights  Analyaia  Program  % 

% 

% 

« 

% 

% 

% 

% 

« 

% 

%  For  documentation  on  PDWAP  ae*  WRDC-TR- 89-XXXX 

%  Any  queatlona  or  comment a  about  this  program  can  be  aent 
t  to  the  author  at : 

% 

%  WRDC/POPA  (Attn:  Lt  Carreiro) 

%  Wright -Patteraon  AFB,  OB  45444-6563 

%  Phone:  (513)  255-4171 

« 

%  Hit  any  key  to  continue 


Preliminary  Deaign  and  Heights  Analysis  Program 
by 

Lt  Louis  R.  Carreiro 

Analyaia  and  Applications  Branch 
Advanced  propulsion  Division 
Aero  Propulsion  and  Power  Laboratory 
Wright  Research  and  Development  Center 
Wright-Patterson  AFB,  OH 


•S-"" 

while  l*n(a$)  -  0 
a$-ink*y3 

wend 

cla 


Main  Menu  Routine 


clear 

s*l$(l)  -  "FI.  Initial  Estimation" 
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41 

sal) (2)  -  ”F2. 

Weight  Analyaia 

42 

ael) ( 3 )  -  "F3. 

View  Data  File" 

43 

ael) (4)  -  "F4 . 

Exit  to  DOS" 

44 

Title)  -  "Main 

Menu" 

45  goaub  MenuDleplay 

46  on  mnu  goaub  PD,  WAATSb,  FilaViawar 
41  loop  until  inanu  -  4 

48 

49  cla 

50  and 

51  ' - - — i  . . . . — 

52  PD: 

53  '  Preliminary  Daaign  Routine 

54  ' 

55  PI  -  3.1415926 

56  SICf  -  8  *  PI  /  180 
51  SIGr  -  30  *  PI  /  180 

58  LAMle  -  82  «  PI  /  180 

59  RhoH2  -  4.389 

60  Rho02  -  11.025 

61  Title)  -  "Preliminary  Daaign” 

62  ael)(l|  -  "" 

63 

64  do 

65  goaub  PD1 

66  input  "  Perform  Another  Eatimation  (Y  or  M) 

61  loop  until  ucaae) (again))  <>  "Y" 

68  return 

69 

10  PD1 : 

11  do 

12  goaub  ManuDlaplay 

13  locate  8,1,0 

14  Input  "  Initialization  data  filename  (PD. DAT)  :  ” 

75  if  len ( InFileH) )  -  0  then  InFileN)  -  "PD. DAT" 

76  errf  -  0 

11  on  error  goto  errchk 

78  open  InFileN)  for  input  aa  #1 

79  loop  until  not  errf 

80 

81  do 

82  locate  8,1 

83  errf  »  0 

84  input  ”  File  name  to  atore  data  ( * . DAT) 

85  if  not  inatr (OutName), " . ")  then  OutName)  -  OutName)  +  ".DAT" 

86  open  OutName)  for  output  aa  #2 
81  loop  until  not  errf 

88 

89  a)  -  "  \ 

90  print  uaing  a) .-"Weight  of  fuel  to  be  carried  (LBS)"; 

91  Input,  WFu 
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92 

93  print  using  a$; "Weight  Density  of  fusl  (4.389  lb/cu .  ft)”; 

94  Input,  RhoF$ 

95  If  RhoFJ  -  ""  then  RhoF  -  RhoH2  else  RhoF  -  val(RhoF$) 

96 

97  print  using  a4; "Oxidizer  to  fuel  ratio  (f)  to  be  uaed”; 

98  input,  f 

99 

100  print  using  a4; "Number  of  crewmembers"; 

•  101  input,  NCrew 
102 

103  print  using  a$; "Number  of  rocket  engines"; 

*  104  input,  Nre 

105  if  Nre  then 

106  print  using  a8;  "Thrust  per  engine" ; 

107  input,  Tre 

108  end  if 

109 

110  print  using  a8; "Number  of  Ramjet  engines”; 

111  input,  Nrj 

112  if  Nrj  then 

113  print  using  a3; "Thrust  per  engine"; 

114  input,  Trj 

115  end  if 

116 

117  print  using  aj; "Number  of  Turbo-Ramjets  engines" ; 

118  input,  Ntrj 

119  if  Ntrj  then 

120  print  using  a? ; "Thrust  per  engine"; 

121  input,  Ttrj 

122  end  if 

123 

124  while  ucasej  (TOJU)  <>"H"  and  ucase*(T0A4)  <>"V" 

125  print  using  a4; "Horizontal  or  vertical  takeoff?  (H  or  V)"; 

126  input  ,  TOA4 

127  wend 

128 

129  print  using  a$; "Payload  weight"; 

130  input,  NPayLd 

131 

132  print  using  a4;"Name  of  Vehicle"; 

<  133  input,  VHaae* 

134  PRINT  "Input  Vehicle  Dlscription  on  the  line  below  (Limit  of  65  Characrters) " 

135  input  , VDlaci 

*  136 

137  VDlsci  -  left J (VDlac4, 65) 

138  if  VDlac4-""  then  VDlac*  -  "None" 

139  if  VNameJ  -  ""  then  VNameJ  -  "No  Nasw” 

140 

141  NTO  -  3000000 

142  WO 2  -  WFu  *  f 
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143 

144  VFuTk  -  WFu  /  RhoF 

145  VOxTk  -  W02  /  Rho02 

146 

147  Xf  -  (  VFuTk  *  S/PI  / (63/64*tan(SIGf ) A2  4-  tan (SIGf ) A3/tan (SICr) ) ) * . 33333 

148  Xc  -  25  *  Xf 

149  tb  -  Xf  *  tan (SIGf) 

150  rf  -  0.75  *  Xf  *  tan (SIGf ) 

151  Xr  -  rb  /  tan(SIGr) 

152 

153  rOT  «•  rb  /  4 

154 

155  rt  -  0.9  *  rb 

156 

157  Xm  -  (VOxTk  /  7  /  PI  +  rbA3/48)  •  16  /  rbA2 

158 

159  SFuTkl  -  .5  *  PI  *  (rb  *  aqr(XfA2  +  rbA2)  -  rf  »  aqr(rfA2  +  XcA2) 

160  t  rbA2  4  rf A2)  +  rb*xf  -  rf»Xc 

161  SFuTk2  -  .5  *  PI  (rb  *  aqr(rbA2  +  XrA2  )  +  rbA2)  +  Xr»rb 

162 

163  LBody  -  Xf  t  Xm  +  Xr 

164  Xw  -  66  *  LBody 

165  b  -  4  •  rb 

166  h  -  rb 

167  Nlntake  -  Mrj  +  Ntrj 

168 

169  SBody  -  rb* ( . 5*PI  *  (aqr (rbA2+Xf A2)  +  aqr <rbA24XrA2) )  +  Xf  +  Xr  ♦  <2+PI)*X») 

170 

171  SFuTk  -  SFuTkl  +  9FuTk2 

172  SOxTk  -  14*PI  »  (rt*Xm  +  rtA2) 

173  Swing  -  1/3  *  Xw  *  b 

174  STPS  -  .5  *  PI*rb* (aqr <rbA2+Xf A2)  +  aqr(rbA2+xrA2)  +  2*Xm)  ♦  swing 

175  bSt  -  aqr <(.5  *  Xw)  A2  +  ( .  5  *  b)A2) 

176  SVert  -  0.1  *  swing 

177  TRoot  -  1/4  *  b  *  tan  (LAMle)  *  .09 

178  WPMain  -  W02  +  WFu 

179  WLand  -  WTO  -  WPMain  -  WPayLd 

180  TTOT  -  Wra  *  Tra  +  Mrj  *  Trj  +  Ntrj  *  Ttrj 

181  AlCapt  -  6*NIntaka 

182 

183  llna  lnputfl,  a J 

184  print  #2,  "Data  fila  naoa:  OutNameS 

185  llna  lnputfl,  a# 

186  print#  2,  "Data  -  "; DateS 

187  llna  lnputfl,  a# 

188  print#  2,  "Tine  -  ".-Time# 

189  llna  lnputfl,  a# 

190  print#  2,  "Vehicle  Nana  -  ";VNane$ 

191  line  lnputfl,  a# 

192  print  #2,  "Dlacrlptlon  -  ";VDlac$ 

193  llna  lnputfl,  a# 
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194  print  #2,  a3 

195  lins  input #1,  a 3 

195  print  #2,  *3 

197  Input  #1,  a,  a3 

198  print  #2,  Using  "**#•••• .**••*" ;  a;:  print  #2,  , a$ 

199  input  #1,  a,  a3 

200  print  #2,  Using  -tlHHMHHV  AlCapt; :  print  12,  ,a3 

201  input  #1,  a,  a3 

202  print  #2,  Using  "MM#**. *•#••";  a;:  print  *2,  ,a* 

203  input  #1,  a,  a* 

204  print  *2,  Using  "##•###».#••#»■;  Ncrsw; :  print  #2,  ,a3 

205  input  #1,  a,  a* 

206  print  #2.  Using  "***«*#*. #•#••";  a;:  print  #2,  ,a* 

207  input  #1,  a,  a 3 

208  print  #2,  Using  "####•##.###»#";  a;:  print  *2,  ,  a* 

209  input  *1,  a,  a3 

210  print  #2,  Using  "MM***.#*###";  LBody; :  print  #2,  ,a* 

211  input  #1,  a,  a3 

212  print  #2,  Using  "*#•##«*.*####";  Llnlst ; :  print  #2.  ,a# 

213  input  #1,  a,  a3 

214  print  #2,  Using  "*»••###.##••#";  LRasip;  :  print  #2,  ,a3 

215  input  *1,  a,  a3 

216  print  #2.  Using  "**»«•**. #*###«;  a;:  print  #2,  , a* 

217  input  #1,  a,  a* 

218  print  #2,  Using  "##»••##.»••#•";  t; :  print  #2,  ,a« 

219  input  #1,  a,  a3 

220  print  *2,  Using  "»•#•••». ##»##";  a;:  print  #2,  ,a# 

221  input  #1,  a,  a3 

222  print  *2,  Using  "#•••»##.###•#";  b;  :  print  #2,  ,a* 

223  input  #1,  a,  a3 

224  print  #2,  Using  "»»••»##.#####"•  h; :  print  #2,  ,a* 

225  input  #1,  a,  a* 

226  print  #2,  Using  "#•#»»*#.#####";  a;:  print  #2,  , a* 

227  input  #1,  a,  a3 

228  print  #2,  Using  "MM***.**##*";  a;:  print  #2,  ,  a* 

229  input  *1,  a,  a* 

230  print  *2,  using  "MMM*. **«*•";  a;:  print  #2,  ,aS 

231  input  #1,  a,  a* 

232  print  #2,  Using  "MM**#.*****";  Hrs;  :  print  *2,  ,a* 

233  input  #1,  a,  a* 

234  print  #2,  Using  "**•*##«.**##*";  nr j; :  print  #2,  ,a3 

235  input  *1,  a,  a* 

236  print  #2,  Using  "**••«•*.*###•";  Ntrj; :  print  #2,  ,a* 

237  input  *1,  a,  a* 

238  print  #2,  Using  "•«•****.*****";  a;:  print  #2,  ,  a# 

239  input  #1,  a,  a* 

240  print  #2,  Using  "MMM*. #####";  a;:  print  #2,  ,a* 

241  input  *1,  a,  a3 

242  print  #2,  Using  "MMM#.#####";  a;:  print  #2,  ,a3 
*<■>  input  #1,  a,  a3 

244  print  #2,  Using  "•##•###.«####";  :  print  #2,  ,a* 


h; :  print  #2,  ,  a# 


a;:  print  #2,  ,  a* 


*";  a;:  print  #2,  ,  a* 
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•;  a;:  print  #2,  ,  al 


245  Input  11,  a,  aS 

2*6  print  12,  Oalng  "IMMMH 

247  Input  #1,  a,  »3 

248  print  12,  Oalng  " lllllll . I||||" ;  SBody; :  print  |2,  ,  a| 

249  Input  11,  a,  al 

250  print  12,  Oalng  "lllllll .  Hill”;  a;:  print  12,  ,  al 

251  input  #1,  a,  al 

252  print  12,  Oalng  " lllllll .  Hill" ;  SFuTk;  :  print  12,  ,  al 

253  input  II,  a,  a! 

254  print  12,  Oalng  "III lllllllll";  a;:  print  12,  , al 

255  input  H,  a,  al 

256  print  12,  Oalng  "lllllll .  Ml##";  SOxTk;  :  print  12,  ,  a! 

257  input  II,  a,  al 

258  print  12,  Oalng  ” lllllll . I||||" ;  STPS; :  print  12,  , al 

259  input  *1,  a,  a3 

260  print  12,  Oalng  " lllllll .  Hill" ;  bst;:  print  |2,  ,  a} 

261  input  11,  a,  al 

262  print  12,  Oalng  " lllllll . ♦♦♦•♦" ;  SVart; :  print  |2,  ,  a} 

263  input  11,  a,  al 

264  print  12,  Oalng  "lllllll . I||||" ;  SHing; :  print  12,  ,  al 

265  input  H,  a,  al 

266  print  12,  Oalng  "lllllll .  Hill" ;  NTanka; :  print  12,  ,  al 

267  input  II,  a,  a) 

268  print  |2,  Oalng  "lllllll . ♦♦♦♦♦",  Tra; :  print  |2,  , a| 

269  input  II,  a,  a! 

270  print  12,  Oalng  "lllllll  ♦♦♦♦♦" ,  Trj; :  print  12,  ,al 

271  Input  |1,  a,  al 

272  print  12,  Oalng  "lllllll . ♦♦♦♦♦";  Ttr j; :  print  12,  ,al 

273  Input  II,  a,  a! 

274  print  12,  Oalng  "lllllll . ♦♦♦♦♦";  TRoot; :  print  |2,  , al 

275  Input  II,  a,  a3 

276  print  12,  Oalng  "lllllll . #♦♦♦♦";  a;:  print  |2,  , al 

277  Input  II,  a,  al 

278  print  12,  Oalng  "lllllll . |||||";  VFuTk; :  print  |2,  ,  a S 

279  Input  II,  a,  al 

280  print  12,  Oalng  "lllllll . |||||";  VOxTk; :  print  |2,  , al 

281  input  11,  a,  al 

282  print  12,  Oalng  "lllllll . |||||";  WLand; :  print  12,  ,  a| 

283  Input  II,  a,  al 

284  print  12,  Oalng  "lllllll . I||||";  WPayLd; :  print  12,  ,  al 
283  Input  11,  a,  al 

286  print  12,  Oalng  "lllllll . III!!";  WFMain; :  print  12,  , al 

287  Input  11,  a,  al 

288  print  12,  Oalng  "!!!!!!! . I!!!!";  WTO; :  print  12,  ,al 

289  input  II,  a,  a! 

290  print  12,  Oalng  "lllllll . ♦♦♦♦♦";  Nlntaka; :  print  12,  , a| 

291  input  II,  a,  al 

292  print  12,  Oalng  "lllllll . III!!" ;  a;:  print  12,  , a! 

293  input  II,  a,  al 

294  print  |2,  oalng  "!!!!!!! .♦♦♦♦♦" ;  a;:  print  12,  ,  al 

295 
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296 

for  I 

aa 

1 

to 

134 

297 

input 

#1, 

a,  a$ 

298 

if 

i 

- 

1  and  ucaaaS (TOAS)  -  "V"  than  a  -  0 

299 

If 

I 

- 

23 

and  ucaaaS (TOAS)  -  UV" 

than  a  -  0.0025 

300 

if 

I 

- 

25 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  0 

301 

if 

I 

- 

26 

and  ucaaaS (TORS)  -  "V" 

than  a  -  0.00916 

302 

If 

I 

- 

44 

than  a  -  0 . 009649*EXF (- 

0  .  OOOOH52*TTOT) 

303 

If 

I 

m 

45 

than  a  -  0.1121  +  0.01724  »  TTOT/IOOO 

304 

if 

i 

- 

47 

than  a  -  0 . 01425*EXP (-0 

. 000025*TTOT) 

305 

if 

I 

- 

48 

than  a  -  0.739  +  0.00675  *  TTOT/IOOO 

306 

if 

I 

- 

57 

and  ucaaaS(TOAS)  -  "V" 

than  a  >  0 

307 

if 

I 

m 

58 

and  ucaaaS (TOAS)  -  " V" 

than  a  «  0 

308 

if 

I 

- 

60 

and  ucaaaS (TOAS )  -  "V" 

than  a  -  0 

309 

if 

I 

- 

66 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  0 

310 

if 

i 

- 

78 

and  ucaaaS  (TOAS)  -  "V" 

than  a  »  0 

311 

if 

I 

- 

80 

than  a  -  RhoF 

312 

If 

I 

- 

101 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  0 

313 

if 

I 

- 

111 

and  ucaaa$ (TOAS)  -  "V" 

than  a  ■  0 

314 

if 

I 

- 

112 

and  ucaaaS (TOAS)  -  "v" 

than  a  -  0 

315 

if 

I 

- 

117 

and  ucaaaS (TOAS)  -  "v" 

than  a  -  1624 

316 

if 

i 

- 

118 

and  ucaaaS(TOAS)  -  "V" 

than  a  -  0.584 

317 

if 

i 

- 

121 

and  ucaaaS (TOAS)  -  "V” 

than  a  -  1.124 

318 

if 

i 

- 

123 

and  ucaaaS (TOAS)  -  "V" 

than  a  0 . 903 

319 

if 

I 

- 

124 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  78.5 

320 

if 

I 

- 

125 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  0.079 

321 

if 

I 

- 

126 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  1.167 

322 

if 

I 

■A 

127 

and  ucaaaS (TOAS)  -  "V" 

than  a  »  1.0 

323 

if 

I 

- 

128 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  0 

324 

if 

I 

- 

129 

and  ucaaaS (TOAS)  -  "V" 

than  a  -  0.00114 

326  n< 

327  cloaa 

328  raturn 

329 

331  ' 

332  ' 

333  ' 

334  '  I 

335  ' 

336  ' 

337  ' 

338  ' 

339  ' 

340 

341  NAATSb: 

342  do 

343  (30 

344  (30 

345  (30 

346  nr 


naxt  I 


WAATSb 

VBRRION  1.0 


Naighta  Analyala  for  Advancad  Tranaportatlon  Syataaa  (BASIC) 

Baaad  on  tha  algorithm  in  tha  program  WAATS  aa  outlinad 
In  NASA  CR-2420  by  C .  R.  (Slatta. 

Modi f lad  by  L.  R.  carralro  for  uaa  with  Turbo BASIC . 


C08UB  Cat Data 
(308 UB  CalcWta 
cosub  Dlaplay 
print 
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347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 
3  62 
3  63 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 


Input  "  Perform  Another  Estimation?  (Y  or  N)  ",  again# 

loop  until  again 4  <>  "Y“  or  again#  <>  "y" 
return 


CalcWta : 


Calculation  of  weights  baaed  on  historical  data 


NEng  -  Ntrj  +  Nrj  +  Nre 

TTOT  -  (Nrj*Trj  +  Nre*Tre  +  Ntrj'Ttrj) 

Gal  -  7.481#  *  VFuTk 


Aerodynamic  Surfaces 
If  IShape  then 

"Pair  -  A ( 8 )  «  SFalr  ♦  A<9) 

"Vert  -  A ( 4 )  «  SVert  A  A<89)  +  A(5) 
end  If 

Body  Structure 
"Basic  -  A(14)  *  SBody 

’’Basic  -  "Basic  +  A(15)  *  (  (LBody«XLF/h)  *0 . 15  *  QMax"0.16  *  SBody^l .  05)  »A(81)  +  A(16) 
WSecSt  -  A(17)  *  SBody  +  A(18) 

HThrSt  -  A(19)  *  (Tr j*Nr j  +  Ttrj'Ntrj)  +  A(10) *Tre«Nre  +  A<20)  +  A(ll) 


Thermal  Protection  System 
"Inaul  -  A (21)  *  STPS  +  A(76) 
"Cover  -  A (22)  »  STPS  +  A(77) 

"TPS  —  "Inaul  +  "Cover 


'  Main  Propulsion 

If  Ntrj  then 
CMT  -  DM 
CHT  -  DH 
COSUB  Atmos 
X  -  1#  +  0.2#  *  CMT *2 
PTO  -  PAlt  *  XA3  *  sqr(X) 

If  CMT  <-  1  then 
PR  *  1# 

elseif  1  <  CMT  and  CMT  <-  5  then 

PR  -  1#  -  0.075#  *  <CMT-1#)~1.35 

else 

PR  »  800#  /  (CMT"4  +  935#) 
end  if 

PT2  -  PR  »  PTO 
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398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 
♦17 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

131 

132 

133 

134 


139 

140 
>41 
142 

43 

44 

45 

46 

47 

48 


NA  -  WARaf  *  Actr 

WEngMt  -  A ( 102 )  *  Ttrj  +  A(103) 

Wtrj  -  <A(32)  *  EXP  ( A  (33 )  »  NA)  *  <  (PT2 
PHlgh)  /  (PLow  -  PHlgh))  +  A(34)  *_ 

EXP(A(35)  *  NA)  »  (  (PT2  -  PLOW)  /  (PHlgh  -  PLOW))) 
*  Ntrj  +  WEngMt *Ntrj 

and  If 


If  Nrj  than 

WEngMt  -  A ( 102)  *  Trj  +  A(103) 

Wrj  -  ( A ( 82 )  »  Trj  +  A(83))  *  Nr}  +  WEngMt*Nrj 
and  If 


if  Mrs  than 

WEngMt  -  A (12)  *  Tra  +  A(13) 

Wra  -  (A(28)  *  Tra  +  A(29)  Tra  *  ARatioAA(30> 
+  A (31)  +  WEngMt)  *  Nra 

and  If 


if  Ntrj  OR  Hrj  than 

wiDuct  -  A(53)  *  (  (LInlat*NIntaka) '•0.5  *  (AlCapt  /  WIntaJta) 
^0.3334  *  PT2~0 .6661  *  GFct  *  FMach)  *  A(54) 

+  A(105) 

WVRarap  -  A(10  6)  *  (LRamp  *  NIntaka  *  (AlCapt  /NIntaka)  -0 . 5_ 
*  TFct)  ^(107)  +  A(10B) 


wsplka  -  A (109)  »  NIntaka 

WInlat  -  WiDuct  +  WVRanp  +  wsplka 

alaa 

WInlat  -  0* 
and  If 


If  ICry  than 


WInaFT  -  A (40) 
WInaOT  -  A(42) 

wrusya  -  a (44) 
wprSya  -  A(50) 
WOxSya  -  A ( 4  7 ) 


*  SFuTk  +  A(41) 

*  SOxTk  +  A(43) 

*  TTOT  +  A(45)  *  LBody  +  A(46) 

*  VFuTk  +  A(51)  *  VOxTk  +■  A(52) 

*  TTOT  +  A  ( 48 )  *  LBody  +  A(49) 


If  Intagral  than 


WInFuT  -  A ( 130)  *  VFuTk  +  A(131) 
WInOxT  -  A (132)  *  VOxTk  +  A(133) 


WFuCnt  -  A(38)  *  VFuTk  +  A(37) 
WOxCnt  -  A(38)  *  VOxTk  +  A(39) 
and  If 


alaalf  not  ICry  than 

WFuCnt  »  A(36)  *  (Gal/hTanka) ^0 . 6  *  NTanka  +  A(37) 

WPrSya  -  0.0009  *  TTOT  *  NTanka 

WBFump  -  TTOT/1000#  *  (1.75  +  0.266  »  NEng) 

WDlatl  »  NEng  »  A(104)  *  (TTOT/NEng) A0 . 5 
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449 

NDiat2  -  0.255  *  GalA0 . 7  *  NTankaA0.25 

450 

WFCont  -  0.169  *  NTanka  *  GalA0 . 5 

451 

WRaFul  -  NTanka  *  (3.0  +  0.45  *  GalA0.333) 

452 

WDrain  -  0.159  »  GalA0.65 

453 

WSaal  -  0.045  *  NTanka  *  (Gal/NTanka) A0 . 75 

454 

WFuSya  -  WBPuuip  +  WDiatl  +  WDiat2  f  WFCont  +  WRaFul  +  WDrain  +  WSaal 

455 

and  if 

456 

457 

WPropU  -  Htr j  +  Wrj  +  Wra  +  WEngMt  +  WFuCnt  +  WOxCnt 

■f  WInaFT 

456 

+  WInaOT  +  WFuSya  +  WOxSya  +  WPrSya  +  WInlat 

459 

4  60 

WBody  -  NBaalc  +  WSacSt  +  WThrSt  +  WInFuT  +  WInOxT 

461 

4  62  ' 

dan  and  Craw  Llfa  Support 

463 

MCraw  -  A(72)  *  NCraw  +  A(73) 

464 

465 

466  ’ 

Main  Propallanta 

467 

WFualM  -  HP  Main  /  (1#  +  f) 

466 

WOxidM  -  WFualM  »  f 

469 

WPropM  -  WFualM  ♦  WOxidM 

470 

471  ' 

Raaarva  Propallant 

472 

WFRaav  -  A<84)  *  WFualM  +  A(85) 

473 

WORaav  -  A(86)  *  WOxidM  ♦  A<87) 

474 

WRaaP  -  WFRaav  +  WORaav 

475 

476  ' 

Inflight  Loaaaa 

477 

WFLoaa  -  A(116)  *  WFualM 

478 

wOLoaa  -  A(116)  *  WOxidM 

479 

WPLoaa  -  WFLoaa  ♦  WOLoaa 

480 

481  ’ 

Raaidual  Propallanta 

482 

WFTrap  -  A(92)  *  WFualM  +  A(93) 

483 

woTrap  -  A(94)  *  WOxidM  +  A<95) 

484 

485 

WRaald  -  WFTrap  +  WOTrap 

486 

487 

488 

489 

490  do 

' Itarata  on  Groaa  Takaoff  Waight 

491 

4  92  ' 

Aarodynanlc  Surfacaa 

493 

If  IShapa  than 

494 

WWing  -  A(l)  *  (WTO  *  XLF  *  bst  *  SWlng  /  TRoot) 

AA(78)  *  IE-6  +_ 

495 

A<2)  *  SWlng  +  A<3)  +  A(117)  *  (WLand  *  XLF  «  bSt  *  Swing  _ 

496 

/  TRoot  *  IE-9) AA(118) 

497 

WHorz  -  A (6)  »  ((WTO  /  SWlng) A0 . 6  *  SHorzA1.2  * 

QMaxA0 . 8) AA ( 90) 

498 

WHorz  -  WHorz  +  A(7) 

499 

WHorz  -  WHorz  +  A(119)  *  ((WLand  /  SWlng) A0. 6  * 

SHorzAl . 2  *  QMaxA0.8) 

AA<120) 
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500  and  if 

501 

502  HSurf  -  WHlng  4  HVert  4  MHorz  4  WF»lr 

503 

504  '  Orientation  Control*  and  Separation 

505  MGlmbal  -  A(55)  »  TDelAA(110)  4  A(56) 

506  MACS  -  A(57)  »  HTOAA<58)  4  A(59)  4  A<124)  *  HBntryAA ( 125 ) 

507  MACSFu  -  A<96)  *  HEntry  4  A(97) 

508  HACSOx  -  MACSFu  *  f ACS 

509  MACSTk  -  A ( 64 )  *  (MACSFu  +  MACSOX)  4  A(65) 

510  HAero  -  A(60)  *  (HTOA0.667  •  (LBody  +  b> A0 . 25) AA(111) 

511  HAero  -  HAero  +  A(61) 

512  HAero  -  HAero  4  A(122)  *  <HEntryA0 . 667  »  (LBody  4  b) A0 . 25) AA(123) 

513  MSep  -  A ( 62)  *  H70  +  A<63) 

514  HACSP  -  HACSFu  +  HACSOx 

515  HACSRe  -  A(11S)  *  HACSP 

516 

517  HOrnt  -  MGlmbal  +  MACS  +  MACSTk  +  HAero  4  HSep 

518 

519 

520  '  Power  Supply,  Conversion,  and  Distribution 

521  MElect  -  A<66)  *  (aqr(HTO)  *  LBodyA0 . 25) AA(112)  4  A(67) 

522  MElect  -  HBlect  4  A(126)  *  (sqr(HEntry)  *  LBody A0 . 25) AA(127) 

523  HHyPnu  -  A(68)  *  ( (SHlnq  +  SHorz  +  SVert)  *  QMax  /  1000#)A0.334 

524  HHyPnu  -  HHyPnu  4  (sqr (LBody  4  bSt)  *  TyTall)  A  A(113)  +  A(69) 

525  HHyPnu  -  HHyPnu  4  A(12S)  *  HTO  4  A(129)  •  HKntry 

526 

527  HPwrSy  -  MElect  4  HHyPnu 

528 

529  '  Avionics 

530  HAvonc  -  A(70)  »  HTOAA<114)  4  A(71) 

531 

532  '  Aircraft  Crew  Systems 

533  HCProv  -  A(74)  *  HTO  4  A(80)  *  NCrew  4  A(75) 

534 

535  '  Dry  Height 

536  HDry  -  MSurf  4  HBody  4  HTPS  4  HSear  4  MPropO  +  HOrnt  +  HPwrSy_ 

537  4-  HAvonc  4  HCProv 

538 

539  '  Design  Reserve  (Contlgency) 

540  HCont  -  A(98)  *  HDry  +  A(99) 

541 

542  '  Esq>ty  Height 

543  MKmpty  -  HDry  4  HCont 

544 

545  '  Launch  and  Recovery  Gear 

546  HLaunch  -  A(23)  *  HTO  4-  A(24) 

547  HLG  -  A(25)  *  HTOAA<101>  4  A(26)  *  MLandAA(121)  +  A(27) 

548 

549  HGear  -  HLaunch  4  HLG 

550 
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551  '  Landing  Waight 

552  NLand  -  WEmpty  +  WPayLd  +  WCraw  +  WRaaid  +  WACSRa 

553 

554  '  Entry  Waight 

555  WEntry  -  WLand  +  WXCSP  +  WRaaP 

556 

557  '  Takaoff  Groaa  Waight 

558  HTOi  -  WTO 

559  WTO  -  WEntry  +  HP Main  +  WPLoaa 
5  60 

561  '  Itarata  with  WTO 

562  loop  until  aba (WTO  -  WTOl) /WTOl  <  .0001 

563 

564  raturn 

565  ' - - -  --  .  . 

566  '  Scraan  and  Initialization 

567  '  Routina  for  WAATSb 

568 


569  GatData: 


570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 


CL3 

Titla$  -  "Waight a  Analyaia" 
aal$  (1)  -  "" 
do 

arrf  -  0 

goaub  ManuDiaplay 
locata  11, 1 

lnP«t  "  Input  datafila  naaa  <*.DAT)  :",InFilaN3 

dot%  -  INSTR  (InFllaNS ,  "  . ") 
if  dot*  than 

FllaRoot*  -  LEFT? (InFilaHJ, dot%-l) 

alaa 

PllaRoot*  -  inPilaNS 
InFllaNS  -  InFllaNS  +  ".DAT" 
and  if 

on  arror  goto  arrchJi 
opan  InFllaH)  for  input  AS  #1 
loop  until  not  arrf 

do 

OutFllaN)  -  "" 
locata  13,1 

print"  Output  datafila  naaa  (";FllaRoot3; " .OUT) 

Input,  OutFllaMS 

if  OutFilaN3  -  ""  than  OutFilaN$  -  FllaRoot)  +  ".OUT” 
arrf  -  0 

on  arror  goto  arrchlc 
opan  OutFilaH3  for  output  aa  #2 
loop  until  not  arrf 
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602 

603 

llna  lnputfl,  ,»S 

604 

llna  lnputfl,  a$ 

605 

FDataf  -  midf(af,7) 

606 

llna  lnputfl,  af 

607 

FTlmaf  -  midf(af,7) 

608 

llna  lnputfl,  af 

609 

If  lan(af)  <-15  than 

6X0 

VNanaf  -  "No  Nana" 

611 

alaa 

612 

VNamaJ  -  midf(af,16) 

613 

and  If 

614 

llna  lnputfl,  a$ 

615 

If  lan(af)  <-14  than 

616 

VDiacf  -  "Nona” 

617 

alaa 

618 

VDiacf  -  midf (af , 15) 

619 

and  If 

620 

llna  lnputfl,  af 

621 

llna  lnputfl,  af 

622 

Input  fl,  Actr,  af 

623 

Input  fl,  AlCapt ,  a 3 

624 

Input  fl,  ARatlo,  a3 

625 

Input  fl,  NCraw,  af 

626 

Input  fl,  DH,  a$ 

627 

Input  fl,  oh,  a$ 

628 

Input  fl,  LBody,  af 

629 

Input  fl,  LInlat,  af 

630 

Input  fl,  UUunp,  aS 

631 

Input  fl,  FMach,  a$ 

632 

Input  fl,  f,  af 

633 

Input  fl,  CFct,  af 

634 

Input  fl,  b,  af 

635 

Input  fl,  h,  af 

636 

Input  #1,  iccy,  af 

637 

Input  fl,  intagral,  af 

638 

Input  fl,  ishapa,  af 

639 

Input  fl,  Nta,  af 

640 

Input  fl.  Nr j,  af 

641 

Input  fl,  Ntrj,  af 

642 

Input  fl,  fACS,  af 

643 

Input  fl,  PCham,  af 

644 

Input  fl,  FRlgh,  af 

645 

Input  fl,  PLow,  af 

646 

Input  fl,  QMax,  af 

647 

Input  fl,  SBody,  af 

648 

Input  fl,  SFalr,  af 

649 

Input  fl,  STuTA,  af 

650 

Input  fl,  SHorz,  af 

651 

Input  fl,  soxTk,  af 

652 

Input  fl,  STPS,  af 
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653  input  #1,  bSt,  a$ 

654  input  #1,  SVart,  aS 

655  input  #1,  swing,  af 

656  input  #1,  NTanka,  aS 

657  input  #1,  Tra,  a3 

658  input  #1,  Trj,  a$ 

659  input  #1,  Ttrj,  a$ 

660  input  #1,  TRoot,  af 

661  input  #1,  TyTail,  a$ 

662  input  #1,  VFuTk,  a$ 

663  input  #1,  VOxTk,  aS 

664  input  #1,  WLand,  a$ 

665  input  #1,  WPayLd,  a$ 

666  input  #1,  HP  Main,  a  9 

667  input  fl,  WTO,  a# 

668  input  #1,  NXntaka,  a$ 

669  input  fl,  XLF,  a S 

670  input  fl,  WARaf,  a$ 

671 

672  for  I  -  1  TO  134 

673  input  fl,  A(I),  af 

674  next  X 

675 

676  cloaa  fl 

677 

678  g  -  32.174 

679  RE  -  20920000 

680  AK  -  0.3048# 

681  PSL  -  760# 

682  TSL  -  288.15# 

683  CHtl  -  -1# 

684  VI  -  -1# 

685  CMtl  -  -1# 

686  Cl  -  28.9664#  »  144.0#  /  (1545.31#  *  g) 

687 

688  for  I  -  1  TO  8 

689  r*ad  HB  ( I )  ,  ALM(X)  ,  PB(I),  TMB(I),  JSWA(I) 

690  naxt  I 

691  raatora 

692 


693 

'HB 

AU4 

PB 

TMB 

JSWA 

694 

data 

0, 

-0.0065, 

760, 

288.15, 

1 

695 

data 

11000, 

0, 

169.79, 

216.65, 

1 

696 

data 

20000, 

0.001, 

41.0649, 

216.65, 

1 

697 

data 

32000, 

0.0028, 

6.51064, 

228.65, 

1 

698 

data 

47000, 

0, 

0.8318598, 

270.65, 

0 

699 

data 

52000, 

-0.002, 

0.44254, 

270.65, 

1 

700 

data 

61000, 

-0.004, 

0.136585, 

252.65, 

1 

701 

702 

703 

data 

raturn 

79000, 

0, 

0.0077834, 

180.65, 

0 
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755  '  Output  Display  Routina 

756  '  for  WAATSb 

757  Display: 

758 

759  print  #2, 

760  print  #2, apacaS (31) ; "Vahicla  Summary” 

761  print  #2, 

762  print  #2,  apacaS (27) ; "Vahicla  Nam* :  ";VNama3 

763  print  12, "Vahicla  Dlscrlptlon:  ”;VDiscS 

764  print  #2, 

765  print  12,  uaing”Data  Fila  -  \ 

765  \" ; ucaaaS (InFllaNS) ; ucasaS <OutFilaN3 ) 

766  print  #2,  using”  Data  -  \  \ 

766  FData3 ; Data3 

767  print  #2,  using”  Tim*  -  \  \ 

7  67  FTlma3;Tima3 

768  print  #2, 

769  print  82,  uaing”Langth  -  888888, .  Haight 

769  LBody, h, b, TRoot 

770  print  82,  using”  SBody  -  888888, -  swing 

770  SBody,  Swing, SVart, SHorz 

771  print  82, 

772  print  82,  using”  Numbar  of:  RamJata  -  88 

772  Nra.Ntrj 

773  print  82,  using”  Thrust  of:  -  8888888, 

773  Tr j, Tra, Ttr j 

774  print  82, 

775  print  82,  ualng”rual  -  88888888, ■ 

775  ”  ;WFualM,  A  (00)  ,  WOxidM 

776  print  82, 

777  print  82,  uslng'Walghta :  GTOW  -  88888888, 

777  ; WTO, WPayLd, WDry 

778  print  82,  using”  Landing  -  88888888, 

779  print  82, 

780  print  82,  using”Ratios :  GTOW/S  -  8888.88 

780  WT0/SWlng,b”2 /SWlng, TTOT/WTO, TTOT/SWlng 

781  print  82, 

782  print  82, 

783  print  82 ,  ”— —  -  -  ■  - 


Tima  -  \ 


Output  Fila  -  \ 

Data  -  \ 

Tima  -  \ 


Haight  -  888888, 
swing  -  888888, 


Span  -  888888, . 
SVart  -  888888, . 


TRoot  - 


SHorz  -  88888, 


Rockata  -  88 

-  8888888, . 

Fual  Danslty  •  888.888 


TurbRanJata  -  88”; Hr], 

-  8888888,”; 

LOX  -  88888888, 


Payload  -  88888888,  .  Dry  -  88888888, . 
Entry  -  88888888,  •  ” ;WLand, WEntry 
«  -  88. 888  t/gtow  -  88.88  T/s  -  888-88”; 

Waight  Stataraant” 


784 

print 

82,  using” 

Group  1 : 

Aaro  surfacaa 

.  * ; WSurf 

785 

print 

82.  using” 

Wing 

88888888, 

. ” ; WWing 

786 

print 

82,  using” 

Vartlcal 

. ” ; WVart 

787 

print 

82.  using” 

Horizontal 

.  ” ; WHorz 

788 

789 

print 

print 

82,  using” 

82. 

Fairing 

88888888, 

. ” ; WFair 

7  90 

790 

print 

WBody 

82.  using” 

Group  2 : 

Body  structura 

88888888 

791 

print 

82,  using” 

Basic  body 

88888888, 

.  ” ; WBasic 

792 

print 

82,  using” 

Sacondary 

88888888, 

.  ” ; WSacSt 

793 

print 

#2,  using” 

Thrust 

88888888, 

.  ” ; WThrSt 

794 

print 

82,  using” 

Intagral  fual  tanks 

88888888, 

.  ” ; WlnFuT 
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795  print  *2, 

796  print  #2, 

797  print  #2, 
797  MTPS 

796  print  02, 

799  print  02, 

800  print  02, 

801  print  02, 

801  NGsar 

802  print  02, 

803  print  02, 

804  print  02, 

805  print  02, 

805  HPropU 

806  print  02, 

807  print  02, 
908  print  02, 


using" 

using" 

using" 

using" 

using" 

using" 

using" 

using" 

using" 

using" 

using" 


809  print  02,  using" 

810 

811  print  02,  using” 

812  print  02,  using" 

813  print  02,  using” 

814  print  02,  using" 
015  print  02,  using” 

816  print  02,  using" 

817  print  02,  using” 

818  print  02.CHR3U2) 

819  print  02, 

820  print  02,  " 

821  print  02, 

822  print  02,  using” 
822  "Ornt 

923  print  02,  using” 

824  print  #2,  using” 

825  print  02,  using" 

826  print  02,  using” 

827  print  02,  using” 

828  print  02, 

929  print  02,  using" 

829  MPwrSy 

830  print  #2,  using” 

831  print  02,  using” 

832  print  02, 

833  print  02,  using” 
833  Kivonc 


834  print  02, 

835  print  02,  using” 

835  WCProv 

836  print  02,  " 

837  print  02,  using” 
837  WDry 
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Xntsgral  Ox  tanka 

00000440, 

Group  3  : 

Tharmal  Protsction  Syatam 

Vsbicls  insulation 

44444444, 

covsr  pansla 

00040400, 

Group  4 : 

Launch  and  Rscovsry  Gsar 

Launch  gsar 

44440400, 

Landing  gsar 

00404000, 

Group  5 : 

Propulsion 

Rockat  snginss 

40400440, 

Ramjats 

04000044, 

Turborajajst 

44444444, 

Monstructural  fusl  tank 

00004404, 

Nonstructural  Ox  tank 

04000004, 

fusi  tank  insulation 

00000000, 

Ox  tank  insulation 

00400440, 

Fusl  syatsa 

00004040, 

oxldizsr  syatsa 

00444000, 

Prassurl ration  syatsa 

44000400, . 

Inlsts 

00000040, . 

Waight 

atatsasnt  f or : " ; VNaasJ ; " 

Group  6 

Orisntation  Control  Syatsa 

Englns  giabal  syatsa 

Attltuds  control  syatsa 

04000000, 

Asrodynaaic  controls 

00000044, 

Sspsratlon  syatsa 

00400044, 

ACS  tankags 

00400040, 

Group  8 

Powsr  supply 

Elsctrlcal  Syatsa 

44440444, 

Hydraulic/Pnsuaatic  Sya 

04000004, 

Group  10 :  Avionics 


Group  14:  Craw  Provisions 


Vsbicls  Dry  Haight 


. " ; WInOxT 

00400004, 

. " .NInsul 
. " ; WCovsr 

40044000,  ." 

•  ” ;  WLaunch 
.  ".mix; 

04004000, 

. ” , Hr* 

";»*rj 
.";Htrj 
. " ; HFuCnt 

.  " ; HOxCnt 
. " ; HInaFT 
.  ";HInsOT 
.  ” ; HFuSys 
” ; HOxSya 
*;HPrSya 
",-HInlat 


Paga  2” 

**••*#00, 

" ;  wsimbal 
" ;WACS 
” ; HAaro 
",-WSsp 
” ; WACSTk 

00000000, 

' ;  WSlsct 
’ ;  WHyPnu 

00000000, 


00000000, 


00000000, 
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838 

print  12, 

839 

print  12, 

using" 

Group  17 : 

Craw 

44444444, 

839 

wcraw 

840 

print  1 2, 

841 

print  12, 

uaing" 

Group  18 : 

Payload 

44444444. 

841 

HPayLd 

842 

print  #2, 

843 

print  #2, 

ualng" 

Group  21: 

Raaidual  Propallant 

44444444,  ”, 

843 

WR«»id 

844 

print  #2, 

uaing" 

Trappad  fual 

44444444, ,";MFTrap 

845 

print  12, 

uaing” 

Trappad  Oxidizar 

44444444, .".MOTrap 

846 

print  |2, 

14 

847 

print  #2, 

uaing” 

Landing  Haight  44444444, 

847 

WLand 

848 

print  42, 

849 

print  42, 

uaing” 

Group  22 : 

Raaarva  Propallanta 

44444444,  ”, 

849 

WRsaP 

850 

print  #2, 

uaing” 

Fual 

851 

print  42, 

uaing" 

Oxidizar 

44444444,  .”;MORaav 

852 

print  42, 

uaing" 

ACS  fual 

44444444, .”;HACSFu 

853 

print  #2, 

uaing” 

ACS  oxidizar 

44444444,  .",-macsox 

854 

print  42, 

ft 

ft 

855 

print  42, 

uaing” 

Entry  Haight  44444444,"; 

855 

HEntry 

856 

print  42, 

857 

print  42, 

uaing” 

Group  23: 

Inflight  Loaaaa 

44444444,  ", 

857 

HPLoaa 

858 

print  42, 

uaing” 

Fual 

44444444, ,”;HFLoaa 

859 

print  42, 

uaing” 

Oxidizar 

44444444, .".NOLoaa 

860 

print  42, 

861 

print  42, 

uaing” 

Group  25 : 

Main  Propallanta 

44444444,  ”, 

r-4 

00 

HPropM 

862 

print  42, 

uaing” 

Fual 

44444444, ,”;HFualM 

863 

print  42, 

uaing” 

Oxidizar 

44444444, .”,W0xidM 

864 

print  42, 

N 

_  ft 

865 

print  42, 

uaing” 

86o 

867 

cloaa  42 

868 

return 

870 

t 

Fila  Viavar 

Routina 

871 

872 

FllaVlawar : 

873 

do 

874 

aalS(l)  -  "FI. 

Fil*  Viawar" 

875 

••1) (2)  -  "F2 . 

Fil*  Convartar” 

876 

••13(3)  -  "F3. 

D08  Shall” 

877 

••14(4)  -  "F4  . 

Exit  to  Main  Manu” 

878 

Tltl«4 

-  ”Fli« 

Viawar" 

879 

goaub  ManuDiaplay 

880 

on  manu  goaub 

3 Out , Convart , DOS Shall 
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881  loop  until  rn*nu  »  4 

882  menu  -  1 

883  return 

884  ' - — - — — - — - — - — - — — - - 

885  '  Screen  Output  Routine 

886  SOut : 

887  locate  25/25 

888  Input  "Enter  data  filename:  ";XnFlleN$ 

889  if  len ( InFileN) )  <>  0  then 

890  cl« 

891  SHELL  "PD1  "+InFileN) 

892  end  if 

893  return 

894  '  -■■■■■■-—— ■  i-ii  — —  ■ 

895  '  DOS  Shell  Routine 

896  DOSShel 1 : 

897  cla 

898  print  "Type  EXIT  and  hit  <RETURN>  to  return  to  PDWAP . " 

899  SHELL 

900  return 

901  —  I.  . . . — — i —  —  ... i-i,  ■n.i.ii.i..,.., 

902  '  Converta  Ver  2.0  data  filea  to  Ver  2.1  format 

903  Convert : 

904 

905  ael) (1)  -  "" 

906  Title)  -  "File  Converter" 

907  goaub  MenuDiaplay 

908  locate  11,5 

909  print  "Thla  routine  will  convert  ver  2.0  data  filea  to  the  ver  2.1  format." 

910  do 

911  errf  -  0 

912  locate  15,1 

913  input  "  ver.  2.0  data  filename  -  ", InFileN) 

914  if  InFileN)  -  ""  then  return 

915  on  error  goto  errchk 

916  open  InFileN)  for  input  aa  tl 

917  loop  until  not  errf 

918  do 

919  locate  16,1 

720  print  "  ver.  2.1  data  filename  (";XnFileN); 

921  Input  ")  -  ",OutFlleN) 

922  If  OutFlleN)  -  ""  then  OutFlleN)  -  "teapflle.dat" 

923  on  error  goto  errchk 

924  open  OutFileN)  for  output  aa  #2 

925  loop  until  not  errf 

926  print 

927  input  "Vehicle  Name  -  ";VHa me) 

928  if  VName)  -  ""  then  VNama)  -  "No  Name" 

929  print  "On  the  next  line  you  may  type  a  Vehicle  deacrlptlon  up  to  65  charactera . ” 

930  input  , VDiac) 

931  VDiac)  -  left) (VDiac), 65) 
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932 

If  VDiac# 

•  ""  then  VDiac# 

-  "None" 

933 

914 

Lin* 

input#  1,  a# 

935 

936 

if  OutFileN#  -  "tempfile.dat"  then 

937 

print 

(2,  "File  Name  - 

XnFileN# 

938 

ala* 

939 

print 

#2,  "File  Nam*  - 

OutFileN# 

940 

end  if 

941 

print 

#2, 

"Tim*  -  "/Time# 

942 

print 

#2, 

"Date  -  ",-Date# 

943 

print 

#2, 

"Vehicle  Name  - 

" ; VName# 

944 

print 

#2, 

"Diacription  -  " 

;  VDiac# 

945 

946 

do 

947  Lin*  input#  X,*# 

948  print  #2,  a# 

949  loop  until  *of(l) 

950  cloa* 

951 

952  if  OutFileN#  -  "tempfile.dat"  th*n 

953  kill  InFileN# 

954  nan*  OutFileN#  aa  InFileN# 

955  and  if 

956 

957 

958  return 

959 

960  '  . . . .  ■"  ■'■ii.  .i.i.  . —  —  . . 

961  MenuDiaplay: 

962  '  Providaa  Initial  Screen  For  All  Routine* 

963  '  Alao  Menu  Routine  When  Menu*  are  needed 

964 

965  CLS 

966 

967  locate  2,33,0 

968  print  "PDWAP  ver  2.1" 

969  locate  4,16 

970  print  "Preliminary  Deaign  and  Weight*  Analyaia  Program” 

971  ltitl*  -  39-len (Title#) /2 

972  locate  6, ltitl* 

973  print  Title# 

974 

975  if  ael# (1)  <>  ""  then 

976 

977  for  X  -  1  to  4 

978  locate  10+2*1,27 

979  print  ael# (I) 

980  next  I 

981 

982  locate  20,24 
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print  "Select  number  or  us*  arrows" 
locate  21,30 

print  “Then  hit  <ENTER>" 

menu  -  2 
gosub  £1 

key  (1)  on 
key  (2)  on 
key  (3)  on 
key  (4)  on 
key  (11)  on 
key  (14)  on 

on  key(l)  gosub  fl 
on  key (2)  gosub  f2 
on  key (3)  gosub  f3 
on  key (4)  gosub  f4 
on  key  (11)  gosub  (JpArrow 
on  key (14)  gosub  DownArrow 

a$  -  "  " 

while  asc  <*4)013 

aj-"" 

while  len(a$)  -  0 
aj-inkey3 

wend 

if  a 3  ->  "1"  and  aS  <-  "4"  then 

on  val  (a$)  gosub  fl,f2,£3,£4 
elseif  asc(a$)013  then 

beep 

end  if 


key  (1)  off 
key  (2)  off 
key  (3)  off 
key  (4)  off 
key  (11)  off 
key  (14)  off 


gosub  HighLit* 
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1034  old  -  menu 

1035  menu  *■  2 

1036  goaub  HighLite 

1037  return 

1038  £3: 

inlo  ■ _____ 

1040 

old  -  menu 

1041 

menu  -  3 

1042 

goaub  HighLite 

1043 

return 

1044  f 4 : 

1045  ' « 

1046 

old  -  menu 

1047 

menu  -  4 

1048 

goaut  HighLite 

1049 

return 

1050  UpArrow: 

1051  '* 

1052  ' 

Reada  Up  Arrow  and  Adjuata  Choice 

1053 

if  menu  -  1  then 

1054 

old  -  menu 

1055 

menu  »  4 

1056 

elae 

1057 

old  —  menu 

1058 

menu  -  menu  -  1 

1059 

end  if 

1060 

goaub  HighLite 

1061 

return 

1062  DownArrow: 

1063 

1064  ' 

Reada  Down  Arrow  and  Adjuata  Choic* 

1065 

if  menu  “  4  then 

1066 

old  -  menu 

1067 

menu  -  1 

1068 

elae 

1069 

old  -  menu 

1070 

menu  -  menu  +  1 

1071 

end  if 

1072 

goaub  HighLite 

1073 

return 

1074  highlit*: 

1075  - - - 

1076  '  Highlit**  s*l*ct*d  Choic* 

1077  if  old  —  unu  than  return 

1078  locate  10+2*menu, 24 

1079  print  "«<";a*l$(m*nu( 

1080  locate  10+2*old, 24 

1081  print  "  " ; eel) (old) ; "  " 

1082  return 

1083 

1084  errchk: 
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1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 
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Error  Handling  Routlna 


arrf  ■>  -1 

baap 

'Diak  Error  Chacklng 

if  arr  *  53  than 

a*  -  "Flla  Not  Found" 
alaaif  arr  -  55  then 

mi  -  "Flla  Alraady  Opan" 
alaaif  arr  -  57  than 

a$  -  "Davlca  I/O  Error” 
alaaif  arr  -  61  than 

a4  -  "Diak  Full" 
alaaif  arr  -  62  than 

a$  -  "Input  Faat  End  of  Flla" 
alaaif  arr  -  64  than 

mi  —  "Bad  Fila  Nana" 
alaaif  arr  -  67  than 

mi  -  "Too  Many  Filaa" 
alaaif  arr  -  70  than 

a8  -  "Diak  Hrita  Protactad" 
alaaif  arr  -  71  than 

mi  -  "Diak  Not  Raady" 
alaaif  arr  -  72  than 

mi  -  "Diak  Madia  Error" 
alaaif  arr  «  75  than 

aj  “  "Path/Flla  Accaaa  Error" 
alaaif  arr  -  76  than 

>1  ■  "Path  Not  Found" 

'Printar  Error  Chacklng 

alaaif  arr  -  24  than 

a)  -  "Davica  Timeout" 
alaaif  arr  -  25  than 

mi  -  "Davlca  Fault" 
alaaif  arr  -  27  than 

a)  "  "Out  of  Papar” 

alaa 

mi  -  "Unknown  Error/DOS  Coda  ("+etr$ (err) +") 

and  if 

mi  -  a$  +  " :  Hit  Any  Kay  to  Contlnua" 
lana  -  39  -  lan(aJ)/2 
locata  25, lana 
print  mi; 
a<-"" 

while  lan(aj)  -  0 
a$— inkayj 

wand 
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A 

2 

362 

362 

363 

363 

369 

370 

370 

370 

370 

400 

400 

401 

402 

407 

413 

413 

414 

418 

419 

431 

432 

432 

433 

433 

435 

437 

437 

438 

438 

448 

463 

463 

472 

472 

483 

483 

494 

494 

495 

499 

499 

505 

505 

505 

507 

509 

509 

510 

510 

521 

521 

521 

522 

522 

530 

530 

533 

533 

533 

547 

547 

547 

673 

775 

AlCapt 

181 

200 

418 

421 

623 

AK 

680 

740 

AIM 

2 

689 

727 

740 

AMU 

750 

751 

ARatio 

413 

624 

Act  r 

3  98 

622 

Atmoa 

386 

706 

Cl 

686 

749 

CHT 

385 

CHtl 

683 

CMT 

384 

387 

390 

392 

392 

CMtl 

685 

CalcWta 

344 

352 

Convart 

880 

903 

OH 

385 

626 

DM 

384 

627 

DOSShaU 

880 

896 

DTDH 

741 

Dalta 

736 

746 

Display 

345 

757 

DownAxroa 

1002 

1062 

E 

494 

496 

750 

EX 

729 

730 

732 

733 

FData) 

605 

766 

FMach 

419 

631 

FTlma$ 

607 

767 

PllaRoot} 

581 

583 

593 

596 

FllaViaaar 

46 

872 

GFct 

419 

633 

oh 

709 

711 

711 

713 

713 

721 

721 

727 

729 

732 

Cal 

357 

445 

449 

450 

451 

Gat Data 

343 

569 

HB 

2 

689 

727 

729 

732 

HK 

740 

HlqhLlta 

1030 

1036 

1042 

1048 

1060 

I 

296 

298 

299 

300 

301 

363 

367 

368 

368 

368 

369 

375 

375 

376 

376 

399 

399 

407 

408 

408 

412 

412 

413 

420 

421 

422 

422 

424 

431 

433 

434 

434 

434 

435 

435 

440 

440 

441 

441 

445 

445 

473 

473 

477 

478 

482 

482 

495 

495 

496 

497 

4  97 

498 

506 

506 

506 

506 

506 

507 

511 

512 

512 

513 

513 

515 

523 

524 

524 

525 

525 

530 

540 

540 

546 

546 

547 

547 

393  395  743  744  746 
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306 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

326 

672 

673 

674 

688 

689 

689 

689 

689 

689 

690 

977 

978 

979 

980 

ICry 

430 

444 

636 

IH 

710 

712 

714 

716 

718 

720 

722 

724 

727 

727 

727 

728 

729 

730 

730 

732 

732 

733 

740 

I  MV 

743 

IShape 

361 

493 

638 

InFlleN3 

74 

75 

75 

78 

578 

579 

581 

583 

584 

584 

587 

765 

888 

889 

891 

913 

914 

916 

920 

937 

953 

954 

Integral 

436 

637 

JSWA 

2 

689 

728 

LAMle 

58 

177 

LBody 

163 

164 

210 

368 

433 

435 

510 

512 

521 

522 

524 

628 

769 

LInlet 

212 

418 

629 

LRamp 

214 

421 

630 

MenuDlaplay 

45 

72 

575 

879 

907 

961 

NCrew 

101 

204 

4  63 

533 

625 

NEng 

355 

447 

448 

448 

N Intake 

167 

181 

290 

418 

418 

421 

421 

424 

668 

NTanks 

266 

445 

445 

446 

449 

450 

451 

453 

453 

656 

Nre 

104 

105 

180 

232 

355 

356 

370 

411 

414 

639 

772 

Hrj 

111 

112 

167 

180 

234 

355 

356 

370 

406 

408 

408 

417 

640 

772 

Mtrj 

118 

119 

167 

180 

236 

355 

356 

370 

383 

403 

403 

417 

641 

772 

OutPlleHJ 

591 

594 

596 

596 

600 

765 

921 

922 

922 

924 

936 

939 

952 

954 

OutNane$ 

84 

85 

85 

85 

86 

1M 

P 

730 

733 

736 

747 

PA.lt 

388 

747 

749 

PB 

2 

689 

730 

733 

PCham 

643 

PD 

46 

52 

PD1 

65 

70 

PHlgb 

401 

401 

402 

644 

PI 

55 

56 

57 

58 

147 

157 

159 

161 

169 

169 

172 

174 

PLow 

401 

402 

402 

645 

PR 

391 

393 

395 

397 

POL 

681 

736 

PT2 

397 

400 

402 

419 

PTO 

388 

397 

QMax 

368 

497 

499 

523 

646 

QO 

746 

RE 

679 

RENO 

751 

R  Theta 

738 

743 

744 

Rho 

749 

751 

RhoF 

95 

95 

144 

311 
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RhoFS 

94 

95 

95 

RhoH2 

59 

95 

Rho02 

60 

145 

SBody 

169 

248 

367 

368 

369 

647 

770 

SFair 

3  62 

648 

SFuTk 

171 

252 

431 

t>49 

SFuTk  1 

159 

171 

SFuTk2 

161 

171 

SHon 

497 

499 

523 

650 

770 

sxci 

56 

147 

147 

4S 

150 

SlSr 

57 

147 

151 

3  Out 

880 

886 

SOxTk 

172 

256 

432 

651 

STPS 

174 

258 

375 

376 

652 

SVart 

176 

262 

363 

523 

654 

770 

3Wing 

173 

174 

176 

264 

494 

495 

4  95 

497 

499 

523 

655 

770 

780 

780 

780 

TAlt 

748 

749 

TDel 

505 

TFct 

422 

TUB 

2 

689 

727 

730 

732 

TMPA 

740 

741 

THPB 

727 

730 

737 

741 

748 

750 

750 

TOA$ 

124 

124 

126 

298 

299 

300 

301 

306 

307 

308 

309 

310 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

TRoot 

177 

274 

494 

496 

660 

769 

TSL 

682 

737 

TTOT 

180 

302 

303 

304 

305 

356 

433 

435 

446 

447 

448 

780 

780 

Theta 

737 

738 

Tltla$ 

44 

61 

571 

878 

906 

971 

973 

Tra 

107 

180 

268 

356 

370 

412 

413 

413 

657 

773 

Trj 

114 

180 

270 

356 

370 

407 

408 

658 

773 

Ttr  j 

121 

180 

272 

356 

370 

399 

659 

773 

TyTall 

524 

661 

'Jp  Arrow 

1001 

1050 

V 

743 

744 

751 

VI 

684 

VDiacS 

135 

137 

137 

138 

138 

192 

616 

616 

763 

930 

931 

931 

932 

932 

944 

VFuTk 

144 

147 

278 

357 

434 

437 

440 

662 

VMasw$ 

133 

139 

139 

190 

610 

612 

762 

820 

927 

928 

928 

943 

VOxTk 

145 

157 

280 

434 

438 

441 

663 

WA 

398 

400 

402 

WAATSb 

46 

341 

WACS 

506 

517 

824 

WACSFu 

507 

508 

509 

514 

852 

WACSOx 

508 

509 

514 

853 

WAC3P 

514 

515 

555 
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t 


t 


WACSRa 

515 

552 

WACSTk 

509 

517 

827 

WARaf 

198 

670 

WAaro 

510 

511 

511 

512 

512 

517 

825 

WAvonc 

530 

537 

833 

WBPump 

447 

454 

WBaaic 

367 

3  68 

368 

460 

791 

MBody 

460 

536 

790 

WCProv 

533 

537 

835 

WCont 

540 

543 

WCovar 

376 

378 

799 

MCraw 

463 

552 

839 

WDlatl 

448 

454 

NDlaC2 

449 

454 

WDrain 

452 

4S4 

MDry 

536 

540 

543 

777 

837 

WElact 

521 

522 

522 

527 

830 

WEmpty 

543 

552 

WEngMt 

399 

403 

407 

408 

412 

414 

457 

WEntry 

506 

507 

512 

522 

525 

555 

559 

KFCont 

450 

454 

RPLoaa 

477 

479 

858 

MFRaav 

472 

474 

850 

WFTrap 

482 

485 

844 

urair 

362 

502 

788 

WFu 

91 

142 

144 

178 

NFuCnt 

440 

445 

457 

809 

NFuSya 

433 

454 

458 

814 

NTualM 

467 

468 

469 

472 

477 

482 

775 

NSaar 

536 

549 

801 

waimbal 

505 

517 

823 

WHorz 

497 

498 

498 

499 

499 

502 

787 

WHyPnu 

523 

524 

524 

525 

525 

527 

831 

ItXDuct 

418 

425 

KInFuT 

437 

460 

794 

WlnOxT 

438 

460 

795 

HInlat 

423 

427 

458 

817 

NInaFT 

431 

457 

812 

WInaOT 

432 

458 

813 

Iflnaul 

373 

378 

798 

NLQ 

547 

549 

803 

WLand 

179 

282 

495 

4  99 

547 

552 

555 

DUunch 

546 

549 

802 

W02 

142 

145 

178 

l*OLoaa 

478 

479 

859 

tfORaav 

473 

474 

851 

WOTrap 

483 

485 

845 

tWrnt 

517 

536 

822 

W0xCnt 

441 

457 

811 

woxsya 

435 

458 

815 

WOxldM 

468 

469 

473 

478 

483 

775 

863 

835 


77  • 


847 
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WPLoaa 

479 

559 

857 

WPMaln 

178 

179 

286 

467 

559 

666 

WPiyLd 

130 

179 

284 

552 

665 

777 

841 

TOrSy« 

434 

446 

458 

816 

SfPropM 

469 

861 

N?ropU 

457 

536 

805 

MPwrSy 

527 

536 

829 

WRaFul 

451 

454 

474 

555 

849 

NRaald 

485 

552 

843 

WSaal 

453 

4S4 

HS«c3t 

369 

4  60 

792 

NSap 

513 

517 

626 

MSpika 

424 

425 

waurf 

502 

536 

784 

WTO 

141 

179 

288 

494 

497 

506 

510 

513 

521 

525 

530 

533 

546 

547 

558 

559 

562 

667 

777 

780 

780 

865 

WTOl 

558 

562 

562 

WTVS 

378 

536 

797 

WThrSt 

370 

460 

793 

HVRamp 

421 

425 

WVart 

363 

S02 

786 

ming 

494 

502 

785 

413 

457 

806 

Wrj 

408 

457 

807 

wtr  j 

400 

457 

808 

X 

387 

388 

388 

XU 

368 

494 

495 

669 

Xc 

148 

159 

160 

Xf 

147 

148 

149 

150 

159 

163 

169 

169 

174 

Xm 

157 

163 

169 

172 

174 

Xr 

151 

161 

161 

163 

169 

169 

Xw 

164 

173 

175 

a 

197 

198 

199 

201 

202 

203 

205 

206 

207 

208 

209 

211 

213 

215 

216 

217 

219 

220 

221 

223 

225 

226 

227 

228 

229 

230 

231 

233 

235 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

249 

250 

251 

253 

254 

255 

257 

259 

261 

263 

265 

267 

269 

271 

273 

275 

276 

277 

279 

281 

283 

285 

287 

289 

291 

292 

293 

294 

297 

298 

2  99 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

•4 

29 

30 

31 

89 

90 

93 

97 

100 

103 

106 

110 

113 

117 

120 

125 

129 

132 

183 

185 

187 

189 

191 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

237 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 
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270 

271 

272 

273 

274 

281 

282 

283 

284 

285 

292 

293 

294 

297 

325 

609 

612 

614 

615 

618 

626 

627 

628 

629 

630 

637 

638 

639 

640 

641 

648 

649 

650 

651 

652 

659 

660 

661 

662 

663 

670 

673 

934 

947 

948 

1010 

1011 

1012 

1092 

1094 

1108 

1110 

1112 

1114 

1117 

1128 

1129 

1130 

1131 

again) 

66 

67 

347 

348 

348 

b 

165 

173 

175 

177 

222 

bSt 

175 

260 

494 

495 

524 

dot% 

579 

580 

581 

•rrchk 

77 

586 

599 

915 

923 

•ref 

76 

79 

83 

87 

574 

1088 

f 

98 

142 

218 

467 

468 

fl 

988 

997 

1011 

1027 

f2 

998 

1011 

1033 

f  3 

999 

1011 

1038 

f4 

1000 

1011 

1044 

f  ACS 

508 

642 

678 

686 

750 

h 

166 

224 

368 

635 

769 

highlit* 

1074 

input #1 

183 

185 

187 

189 

191 

614 

620 

621 

lent 

1126 

1127 

ltltl* 

971 

972 

8 

D 

C 

46 

47 

880 

881 

882 

1041 

1046 

1047 

1053 

1054 

1067 

1069 

1070 

1070 

1077 

old 

1028 

1034 

1040 

1046 

1054 

rOT 

153 

rb 

149 

151 

153 

155 

157 

161 

161 

161 

165 

166 

r« 

740 

740 

rf 

150 

159 

159 

160 

160 

rt 

155 

172 

172 

■•13 

2 

40 

41 

42 

43 

905 

975 

979 

1079 

1081 

xf 

160 

xr 

174 

275 

276 

277 

278 

279 

280 

286 

287 

288 

289 

290 

291 

603 

604 

605 

606 

607 

608 

620 

621 

622 

623 

624 

625 

631 

632 

633 

634 

635 

636 

642 

643 

644 

645 

646 

647 

653 

654 

655 

656 

657 

658 

664 

665 

666 

667 

668 

669 

1004 

1005 

1006 

1007 

1008 

1010 

1096 

1098 

1100 

1102 

1104 

1106 

1119 

1121 

1123 

1125 

1125 

1126 

510 

653 

512 

634 

769 

780 

1084 

588 

598 

601 

911 

917 

925 

632 


193 

195 

603 

604 

606 

608 

987 

1028 

1029 

1034 

1035 

1040 

1055 

1057 

1058 

1058 

1065 

1066 

1078 

1079 

1057 

1066 

1069 

1077 

1080 

1081 

157 

159 

159 

160 

160 

161 

169 

169 

169 

174 

174 

174 

62 

572 

874 

875 

876 

877 
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